import Data.List (sort, sortBy, group)
import Data.Ord (comparing)

getLevel :: [Int] -> Int
getLevel = fst . head . sortBy (flip $ comparing snd) .
    map (\xs -> (head xs, length xs)) . group . reverse . sort

main :: IO ()
main = print . getLevel . map read . drop 1 . words =<< getContents