いきなりなんですが、
『F=sin(x)+cos(x)のとき、x=0,45,90,180の値を求めよ』
って問題なんで、こんな感じで作ったのですが
−−−−−−−−
IMPLICIT NONE
REAL A,Y

WRITE(*,*)'A= '
READ(*,*) A

Y=SIN(A)

WRITE(*,*) Y

STOP

END
−−−−−−−−
動きません(T_T)よろしければ訂正もしく新たなプログラム教えてください。