program main
integer :: x,y 
print*,"enter the range x,y "
read*, x,y 
do 15 x=x,y,1 
m=0 
do 10 I =2, (x-1),1 
xrI=x-x/I*I 
if (xrI==0) m=m+1
10 continue 
if ( m == 0) print*, x, "prime" 
15 continue 

end program main