import Data.List
main = do
  getLine
  as <- map read . words <$> getLine
  let bs = sort . map t $ as
  let c = length $ [b | b <- bs, b < 0]
  let d = length . nub $ [b | b <- bs, b >= 0]
  putStr . show $ o1 c d
  putStr " "
  putStr . show $ o2 c d
 
t :: Int -> Int
t  x
  | x >= 3200 = -1
  | otherwise = x / 400
 
o1 0 0 = 0
o1 _ 0 = 1
o1 _ d = d
 
o2 c d = c + d