        implicit real*8(a-h,o-z) 
        print *,'xを入力してください'
        read(*,*) x
        y=x**2
        print *,'y=',y
        end
