Program zad3;
Var
x,r,h,v :real ;
Begin
writeln('введите радиус основания');
readln (r); 
writeln('введите высоту');
readln (h);
x:=(pi*(r*r)*h);
writeln (x:0:0);
End.