Дан радиус шара. Найти его объем.
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.