program sphere

real::rad,pi,area,vol

pi=3.1416
write(*,*)'Enter the radius'
read(*,*)rad

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

write (*,*)'The area and volume of the sphere are',area,vol 
end program