module Main(main) where
import Data.List

unqcnt [] = 0
unqcnt (x:[]) = 1
unqcnt (x:y:xs) = if x /= y then 1 + unqcnt (y:xs)
                  else unqcnt (y:xs)

main :: IO ()
main = do
  n <- read <$> getLine
  xs <- map read <$> (sequence $ replicate n getLine) :: IO [Int]
  print $ unqcnt $ sort xs
