Program Hello
implicit none
integer ::n,i=1,f=0
print *,"Enter a number"
read *,n 
do while (i<n)
if(i*i==n)f=1 
i=i+1 
end do 
if(f==1)then 
print *," The number is a perfect square number"
ELSE
print *,"The number is not a perfect square number"
ENDIF
End Program Hello