-- Enter your code here. Read input from STDIN. Print output to STDOUT
import Data.List
count [] = 0
count [x] = 1
count (x:y:xs)
    | x == y = 1 + count (y:xs)
    | otherwise = 1
main = do
    q <- getLine
    stuff <- fmap (map (read :: String -> Int) . words) getLine
    print $ count $ reverse $ sort stuff