program main 
implicit none 
integer ::x,n,f,s,i
integer :: num(10) 
print*, "enter a number & a digit " 
read*,x,n 
f=x
do i=1,10
num(i)=0 
end do 

end program main