!-----  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