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

main :: IO ()
main = do
    n <- readLn
    xs <- replicateM n readLn
    print $ length $ solve $ sort (xs :: [Integer])

solve :: Ord a => [a] -> [a]
solve [] = []
solve [x] = [x]
solve (x : y : xys) | x == y = solve xys
                    | otherwise = x : solve (y : xys)