! 直円錐の体積と表面積
PROGRAM ex1_2

  REAL :: pi, r, h, v, s

  pi = 3.141593

  PRINT *, 'Hankei r and takasa h ?'
  READ *, r, h

  v = pi * h * r ** 2 / 3.0
  s = pi * r * ( r + ( r ** 2 + h ** 2 ) ** 0.5 )

  PRINT *, 'Taiseki = ', v
  PRINT *, 'Hyomenseki = ', s

END PROGRAM ex1_2