С использованием операторов повтора цикл вычислить выражение - Pascal ABC

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

∑_(n=1)^∞▒〖(-1)^n 1/(n*(2n+1))〗

Решение задачи: «С использованием операторов повтора цикл вычислить выражение»

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

var eps,s,ds:real;
    n:integer;
begin
eps:=0.00001;
n:=1;
ds:=-1;
s:=ds/3;
repeat
n:=n+1;
ds:=-ds;
s:=s+ds/n/(2*n+1);
until ds/n/(2*n+1)<=eps;
writeln('Sum=',s:0:3);
end.

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

В начале кода объявляются переменные eps, s и ds типа real, а также переменная n типа integer.
Значение переменной eps устанавливается равным 0.00001.
Значение переменной n устанавливается равным 1.
Значение переменной ds устанавливается равным -1.
Переменная s инициализируется значением переменной ds, делённым на 3.
Затем выполняется цикл repeat, который продолжается до тех пор, пока значение ds/n/(2*n+1) не станет меньше или равно значению переменной eps.
Внутри цикла значение переменной n увеличивается на 1.
Значение переменной ds обновляется, становясь отрицательным значением предыдущего значения ds.
Значение переменной s обновляется, становясь суммой предыдущего значения s и новой величины ds, делённой на n, плюс (2*n+1).
После завершения цикла выводится значение переменной s, округленное до трёх знаков после запятой.
Конец программы.