import Data.List

main :: IO ()
main = do
    _ <- getLine
    list <- map read . words <$> getLine :: IO [Int]
    print $ calcKagami list

calcKagami :: [Int] -> Int
calcKagami [] = 0
calcKagami list = 
    let grouped = group $ sort list
    in  length grouped