let n = Scanf.scanf " %d" (+) 0
let a_s = Array.init n @@ fun _ -> Scanf.scanf " %d" (+) 0
let cs = Array.make 9 0
let f i = cs.(i) <- cs.(i) + 1
let mi = Array.(iter (fun a -> f @@ min 8 @@ a / 400) a_s; fold_left (fun s c -> s + if c > 0 then 1 else 0) 0 cs - min 1 cs.(8))
let _ = Printf.printf "%d %d\n" (max 1 mi) @@ if mi = 0 then max 1 @@ cs.(8) - 1 else mi + max 0 cs.(8)