program frequency 
implicit None
integer ::n,i,count,m,digit
print *,"Enter the number="
read *,n
do i=0,9
count=0
m=n
do while (m>0)
 digit=mod(m,10)
if(digit==i) count=count+1
 m=m/10
end do
if(count>0) print *,"Frequency of",i,"=",count
 end do 
end program frequency