program ch1201
implicit none
real :: x
   print *,' type in an angle (in radians)'
   read *,x
   print *,' Sine of ', x ,' = ',sin(x)
end program ch1201