Program begin_18-

uses crt-

var r,V: real-

Begin

ClrScr-

Writeln(‘введите радиус r’)- readln(r)-

V:=4/3*PI*sqr(r)*r-

writeln(‘объем равен’,v:4:2)-

Readln-

end.