program sphere
real::pi,rad,area,volume
pi=3.1416
write(*,*)"Entrer the radius"
read(*,*)rad
area=4*pi*rad**2
volume=(4./3)*pi*rad**3
write(*,*)"The area and volume=",area,volume
end program sphere