import qualified Data.ByteString.Char8 as BC
import Data.Maybe
import Data.List
import qualified Data.IntMap as IM

type Map = IM.IntMap Int

countUp :: Int -> Int -> Map -> Map
countUp = IM.insertWithKey f
  where f _ new old = old + new

readIntsLine :: IO [Int]
readIntsLine = map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine

solve :: [Int] -> Map -> Map
solve [] m = m
solve (a:as) m = solve as $ countUp (a `div` 400) 1 m

main :: IO ()
main = do
  getLine
  as <- readIntsLine
  let filtered = filter (<3200) as
  let a = length . IM.toList $ solve filtered IM.empty
  let b = a + length as - length filtered
  putStrLn $ show a ++ " " ++ show b