PROGRAM RADIUS
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

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