import Data.List
main = do
	getLine
	l <- getLine >>= return . map (\x -> (length x, head x)) . group . sort . map (read::String->Int) . words
	let m = fst (maximum l)
	print $ maximum $ map snd $ filter (\(a,b) -> a==m ) l