PROGRAM Area
    IMPLICIT NONE
    REAL :: radius
    REAL, PARAMETER :: pi = 3.14159
    PRINT *, "Type in the radius"
    READ *, radius
    PRINT *, "Area of circle with radius ", &
        radius, " is ", pi*radius**2
    PRINT *, "Volume of sphere with radius ", &
      radius, " is ", (4.0/3.0)*3.14159*radius**3
END PROGRAM Area