Program pr;
Var V, P, R, H:real;
Begin
Writeln('Введите R');
readln(R);
Writeln('Введита H');
readln(H);
V:=3,14*R*R*H;
Writeln('V=, V');
readln;
end.
var
p,r,h:real;
begin
readln(p,h);
v:=Pi*sqr(r)*h;
writeln(v:5:3);
end;
