program sphere
real:: pi,rad,area,volume
pi=3.1416
write(*,*)"Enter the radius:"
read(*,*) rad
write(*,'(F6.1)')rad
area=4*pi*rad**2
volume=(4./3)*pi*rad**3
write(*,*)"The area & Volume=",area,volume
end program sphere