import Control.Monad
import Data.List

main = do
  n <- read <$> getLine :: IO Int
  ns <- replicateM n (read <$> getLine) :: IO [Int]
  -- let ls = map (\l -> length l) . group . sort $ ns :: [Int]
  -- print $ length ls
  print . length $ nub ns
