Дан цилиндр, с заданным радиусом основания —r и высотой —h. Найти объем цилиндра.
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.