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 sphere