import Control.Monad (replicateM)
import Data.List (nub)


main :: IO ()
main = do
    n <- readLn :: IO Int
    ds <- replicateM n readLn :: IO [Int]
    putStrLn $ show $ solve ds

solve :: [Int] -> Int
solve = length . nub 