import Data.List

main :: IO ()
main = interact $ show . solve . group . reverse . sort . map (read :: String -> Int) . tail . words

solve :: [[Int]] -> Int
solve xss = head . head $ filter (\xs -> length xs == x) xss
    where
        x = maximum $ map length xss