procedure walec(r,h:real; var v:real);
var pp:real;
begin
pp:=sqr(r)*pi;
v:=pp*h;
end;

function walec(r,h:real):real;
var pp:real;
begin
pp:=sqr(r)*pi;
walec:=pp*h;
end;

program objetosc;
uses crt;
var v, h, r,sv:real;
n,k:integer;
procedure walec(r,h:real; var v:real);
var pp:real;
begin
pp:=sqr(r)*pi;
v:=pp*h;
end;
begin
clrscr;
writeln('podaj ilosc bryl');
readln(n)
sv:=0;
for k:=1 to n do
begin
writeln('podaj promien podstawy');
readln(r);
writeln('podaj wysokosc walca');
readln(h);
walec(r,h,v);
sv:=sv+v;

writeln('objetosc=', v:0:4);
readln;
end.