import Control.Applicative
import Data.List(sort, groupBy)

main :: IO ()
main = do
  num <- getLine
  ls <- getNums <$> getLine
  putStrLn $ show $ length $ groupBy (==) $ sort ls

getNums :: String -> [Int]
getNums = map read . words
