Вычислить с заданной точностью ε сумму бесконечного ряда S - PascalABC.NET

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

Помогите, пожалуйста! Вычислить с заданной точностью ε сумму бесконечного ряда S

Решение задачи: «Вычислить с заданной точностью ε сумму бесконечного ряда S»

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

var nf,n2f,mem,i:real;
     s:real;
     eps:real;
     
begin
write('Введите точность:');read(eps);
nf:=1;
n2f:=2;
mem:=nf/n2f;
i:=1;
while mem>eps do
   begin
   s:=s+mem;
   i:=i+1;
   nf:=nf*i;
   n2f:=n2f*(2*i-1)*(2*i);
   mem:=nf/n2f;
   end;
writeln(s);
end.

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

Ввод переменной eps, которая представляет собой точность вычислений.
Инициализация первых четырех переменных: nf, n2f, mem и i.
Запуск цикла while, который выполняется до тех пор, пока mem больше eps.
Внутри цикла происходит добавление mem к переменной s, а затем увеличивается i на 1.
После каждой итерации nf умножается на i, а n2f умножается на (2i-1)(2*i).
Затем mem пересчитывается как nf/n2f.
По завершении цикла выводится значение s.