import Data.List (group, sort)
import Control.Arrow ((&&&))

freq :: Ord a => [a] -> [(Int, a)]
freq = map (length &&& head) . group . sort

main :: IO ()
main = do
    _ <- getLine
    print . length . filter ((==) 1 . fst) . freq . map (read :: String -> Int) . words=<< getLine