module Main where

import Control.Monad
import Data.Ord (comparing)
import Data.List (sort, group, maximumBy)

main :: IO ()
main = do
    n <- readLn
    as <- replicateM n $ (subtract 2) . length <$> getLine
    print $ head . maximumBy (comparing length) . group $ sort as