program abc085b
  implicit none
  integer n
  integer,allocatable :: d(:)
  logical :: l(100) = .false.
  read *, n
  allocate(d(n))
  read *, d
  l(d) = .true.
  print *, count(l)
end program abc085b
