integer,allocatable::a(:)
  integer::i,j,shinki=0
  read *, N
  allocate(a(N))
  read *,a
  num = 0
  do i = 1, N
     do j=1,i-1
        if (a(i).eq.a(j)) then
           if ( i.eq.j) cycle
           goto 100
        end if
     end do
     shinki = shinki + 1
100  end do
  print '(i0)', shinki
end program