Помогите, пожалуйста решить...

Помогите, пожалуйста решить задачу!!! Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d= 1200 кг/м (кубический). Составить программу, которая вычисляет:

 

а)
var
   p,d,h:real;
begin
   readln(h);
   p:=1200*9.8*h;
   writeln(p);
end.
б)
var
   m,h,r:real;
begin
   readln(h);
   readln(r);
   m:=1200*3.14*h*r*r;
   writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
   i,k:integer;
   m,h,r,S:real;
begin
   readln(k);
   S:=0;
   for i:=1 to k do
   begin
       readln(h);
       readln(r);
       m:=1200*3.14*h*r*r;
       S:=S+m;
   end;
   writeln(S);
end.