Найти суммарный объем жидкости. Паскаль.

[Марина357]

Найти суммарный объем жидкости, хранимой в N одинаковых шарообразных резервуаров с внутренним радиусом R, если уровень H жидкости по отношению к низшей точке дна различен и составляет 11,12,13,...,(10+N) см. Объем шарового сегмента, заполненного жидкостью, равен H^2(R-H/3), где H-высота сегмента.:eek :

Составить алгоритм и программу для вычисления в цикле суммарного результата.

[BDA]

Что вызывает затруднения?
1) Считать N и R
2) Инициализировать S нулем
3) Сделать цикл по i от 11 до N + 10
4) Прибавлять к S объем рассматриваемого на текущем шаге резервуара (по желанию можно проверять, что высота не стала больше диаметра, или сразу ограничить цикл)
5) Вывести S

[newerow1989]

const n=5;
      r=12;
var i,h:integer;
    v:real;
begin
   v:=0;
   For i:=1 to n do
   begin
      h:=10+i;
      v:=v+h*h*(r-h/3);
   end;
   Writeln(v:5:5);
   Readln;
end.

Сойдет?