program main
  implicit none
  
  integer :: n, a(100) = 0,i,j,c=0,chk
  read(*,*)n
  do i = 1, n
    read(*,*)a(i)
    chk = 0
    do j = 1, i-1
      if (a(j) == a(i)) then
        chk = 1
      end if
    end do
    if (chk == 0) then
      c = c + 1
    end if
  end do
  write(*,'(i0)')c
end program main
    