program SphereVolumeAndSurfaceArea;

var
radius, volume, surfaceArea: real;

begin
write('Enter the radius of the sphere: ');
readln(radius);

volume := (4/3) 3.1415 power(radius, 3);
surfaceArea := 4 3.1415 power(radius, 2);

writeln('Volume of the sphere: ', volume:0:2);
writeln('Surface area of the sphere: ', surfaceArea:0:2);
end.