PROGRAM RADIUS2
C
C This program inputs a radius, and then prints the area of a circle with
C that radius and the volume of a sphere with that radius.
C
      IMPLICIT NONE
      REAL R, PI
      PARAMETER (PI=3.14)

      PRINT *, 'Please enter a radius: '
      READ *, R
      PRINT *, 'The area of circle with that radius is ', PI*R*R
      PRINT *, 'The volume of a sphere with that radius is ',
     +         PI*R*R*R*4./3.
      
      STOP
      END