program sphere

real::pi,rad,area,volume
pi=3.1416

write(*,*)'Enter the radius'
read(*,*)rad

area=4*pi*rad**2
volume=(4./3)*pi*rad**3

write(*,*)'The area and volume of the sphere are: ',area,volume

end program sphere