implicit none
integer:: n,i,count
integer,allocatable:: a(:)
integer:: count(100)
 
read(*,*) n
allocate(a(n))
 
count=0
do i=1,n
read(*,*) a(i)
count(a(i))=1
end do
 
write(*,*) sum(count)
 
end
implicit none
integer:: n
integer,allocatable:: a(:)
integer:: count(100)

read(*,*) n
allocate(a(n))

count=0
do i=1,n
read(*,*) a(i)
count(a(i))=1
end do

write(*,*) sum(count)

end
