(defparameter x (make-hash-table))


(defparameter N (parse-integer (read-line)))
(defparameter a (read-from-string (concatenate 'string "(" (read-line) ")" )))

(defparameter big 0)
(defparameter small 0)

(loop for i in a do

        (if (null (gethash i x)) (setf (gethash i x) 1) (setf (gethash i x) (+ (gethash i x) 1)))


        (if (= small 0) (setq small i)
                (if (< small i) (setq big i)
                        (progn (setq big small) (setq small i))))
)


;(print (gethash 2 x))
;(print (gethash 4 x))

;(format t "small=~d big=~d N=~d~%" small big N)

(if (= small big)

                                   (let ((hiki 0))
                                        (if (= (/ small 4) (- N 1))

(format t "~d ~d~%"  0 N)
(format t "~d ~d~%"  N 0)
)





                                   )




(format t "~d ~d~%" (gethash big x) (gethash small x))
)