По направлению мгновенной скорости одной из колеблющихся частиц среды определите направление распространения волны в каждом случае.

Var
  r, v: real;
  i: integer;

begin
  v := 0;
  r := 0.5; {радиус в дм, т.к. литр - это куб.дм.}
  for i := 1 to 12 do
  begin
    v := v + 4 * Pi / 3 * sqr(r) * r;
    r := r + 0.05
  end;
  Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.

Тестовое решение:

Суммарный объем равен 26.879 л.