02_sphere.f

      PROGRAM sphere    
      implicit none
      
      real pi,radius,volume,area  
          
      WRITE(*,*) 'Enter the value for the radius of a sphere.'
      READ(*,*) radius
 
ccccc PI value
      pi =
ccccc PI value
      WRITE(*,*) 'The value of pi is ', pi

ccccc Air & volume       
      area =
      volume =
ccccc Air & volume 
      
      WRITE(*,*) 'For a radius ', radius 
      WRITE(*,*) 'the area of a sphere is ', area
      WRITE(*,*) 'and the volume is ', volume
      
      STOP
      END