Всё исключительно по формулам. Если нужны дополнительные пояснения - пишите.
const n=6;
var r,h:array[1..n] of real;
m,d,sum:real; i:integer;
begin
writeln('Введите радиусы сосудов и высоты столбов жидкости (м):');
d:=1200;
sum:=0;
for i:=1 to n do
begin
readln(r[i],h[i]);
m:=d*h[i]*pi*r[i]*r[i];
sum:=sum+m;
end;
writeln('sum = ',sum:6:2);
end.
Пример:
Введите радиусы сосудов и высоты столбов жидкости (м):
0.3 1
0.6 0.6
0.1 2
0.4 1.2
0.4 1
1 0.5
sum = 4440.96