program main
   implicit none
   INTEGER :: n, i, ans = 0
   INTEGER, ALLOCATABLE :: a(:)
   INTEGER data(1 : 100)
   data(1 : 100) = 0
   READ(*, *) n
   ALLOCATE(a(1 : n))
   READ(*, *) (a(i), i = 1, n)
   do i = 1, n
    data(a(i)) = 1
   enddo
   WRITE(*, *) sum(data)
end program main