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

maxHeight :: Integral a => [a] -> Int
maxHeight = length . nub

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