Спартак

program hlosha; const pi=; var v,r:integer;s:real; begin writeln(’v=,r=’); readln(v,r); s:=(v*pi*r)/2; writeln(’s=’,s); readln; end.