program world;
var R:real;
begin
write('Введите радиус шара: ');
readln(R);
write('Объём шара: ',4*R*R*R*pi/3:0:2)
end.
program world;
var R:real;
begin
write('Введите радиус шара: ');
readln(R);
write('Объём шара: ',4*R*R*R*pi/3:0:2)
end.