Вычислить значение выражения - Pascal (80470)

Формулировка задачи:

Нужен полный код. Найти сумму ряда с точностью ε, общий член которого равен Точность считается достигнутой, если следующий член последовательности меньше заданного ε.

Решение задачи: «Вычислить значение выражения»

Листинг программы

const
    EPS = 0.000001;
var
    i: LongWord;
    sum, sumi: Double; //Real
begin
    sum := 0; sumi := 3; i := 0;
    while (Abs(sumi) > EPS) do
    begin
        sum := sum + sumi;
        Inc(i);
        sumi := sumi / 3 / (3 * i - 2) / (3 * i - 1);
    end;
    WriteLn(sum:0:6);
end.

Объяснение кода листинга программы

Объявляется константа EPS со значением 0.000001.
Объявляются переменные:
- i типа LongWord со значением по умолчанию.
- sum типа Double (или Real в предполагаемом языке программирования) со значением 0.
- sumi типа Double (или Real) со значением 3.
Начинается цикл while, который выполняется до тех пор, пока абсолютное значение переменной sumi больше чем значение константы EPS.
Внутри цикла:
- К переменной sum добавляется значение переменной sumi.
- Значение переменной i увеличивается на 1.
- Значение переменной sumi переопределяется как sumi / 3 / (3 i - 2) / (3 i - 1).
После выхода из цикла выводится значение переменной sum с точностью до 6 знаков после запятой с помощью WriteLn.