import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do
   n <- readLn :: IO Int
   d <- replicateM n getLine
   
   print (length (group (sort d)))