program ex0307
  implicit none
  real, parameter :: pi = 3.14159
  write(*,'(1X,A10,F5.2)')  'sin(pi/6) = ',  sin(pi/6.0)
  stop
  end program ex0307