import Data.List

main::IO()
main=do
  n<-getLine
  dat<-n_get (read n)
  print (solver dat)

n_get::Int->IO [Int]
n_get 0 = return []
n_get n = do
  st<-getLine
  rest<-n_get (n-1)
  return ((read st):rest)

solver::[Int]->Int
solver = length.group.sort