;;
;; Take the first empty square.
;;

(define n (read))
(define n-1 (- n 1))

(define ans
  (let loop ((x 0) (y 0))
    (let ((sq (read)))
      (cond
        ((= sq 0)   (list x y))
        ((< x n-1)  (loop (+ x 1) y))
        (else       (loop 0 (+ y 1)))))))

(printf " ~s ~s ~n" (car ans) (cadr ans))
(exit)