Program begin_14-

Uses crt-

Var r,h: integer-

v:real-

Begin

ClrScr-

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

Writeln(‘введите высоту’)- readln(h)-

v:=pi*sqr(r)*h-

writeln(v:4:2)-

readln-

end.