(let* ((n (read))
       (lst (sort (loop :repeat n :collect (read)) #'<))
       (over3200 0)
       (ln (count-if (lambda (x) (<= 0 x))
                     (collector #'= (mapcar (lambda (x) (if (<= 3200 x)
                                                            (progn (incf over3200) -1)
                                                            (floor x 400))) lst)) :key #'car)))
  (format t "~A ~A" ln (+ ln over3200)))