import           Control.Monad
import           Data.List

main :: IO ()
main = do
    n <- readLn :: IO Int
    ns <- replicateM n readLn :: IO [Int]
    print  $ solve ns

solve :: [Int] -> Int
solve = length . group . sortBy (flip compare)
