import Data.List


main = do
  num <- getLine
  l <- getBirds
  let grouped = group . sort $ l
      maximumLen = maximum . map length $ grouped
  print $ findMax maximumLen grouped


findMax :: Int -> [[Int]] -> Int
findMax len (x:xs)
  | length x == len = head x
  | otherwise = findMax len xs




--IO

getBirds :: IO [Int]
getBirds = fmap (map (read :: String -> Int) . words) getLine