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*,"perfect square"
else 
print*, "not a perfect square"
end if 
End Program Hello