import Control.Monad.State
import Control.Arrow
import Data.List

getInts = map read . words <$> getLine :: IO [Int]

main = do
    time <- readLn
    inputs <- map read <$> replicateM time getLine :: IO [Int]
    let sorted = sort inputs
    putStrLn . show $ foldr uniq [] >>> length $ sorted
    where 
        uniq x [] = [x]
        uniq x arr@(a:_) = if x == a then arr else x:arr


		