program test
implicit none
integer::N,d(100),i,k,ans
read(*,*)N
d=0
ans=0
do i=1,N
	read(*,*)k
    d(k)=d(k)+1
end do
do i=1,100
	if(d(i)>0)then
    ans=ans+1
    end if
end do
print*,ans
end program test