Вычислить до заданной точности. Правильное ли решение?

Question

[IndusDev]

Собственно, я решил:

var a,E,sum,l: real;
    k,n:integer;

begin
  repeat
    write('Введите a (a<>0): ');
    read(a);
  until (a<>0);
  
  repeat
    write('Введите E точность (E>0): ');
    read(E);
  until (E>0);
  
  l:=1;
  k:=0;
  sum:=0;
  n:=0;
  
  repeat
    l:=l*(a+k);
    sum:=sum+(1/(l));
    k:=k+1;
  until (abs(sum)<E);
  
  writeln('Sum=',sum);
end.

Но, получается так, что ответом в любом случае будет результат выражения 1/a.
Быть может, я путаю понятие "с заданной точностью", но интернет говорит о том, что модуль значения должен быть меньше данной точности.
Если результат 1/a

Answer 1

[Developer]

Разница предыдущего значения sum с текущим должна быть по модулю меньше E

Comments

[IndusDev]

Вот это решение верное?

var a,E,sum1,sum2,l,diff: real;
    k,n:integer;

begin
  repeat
    write('Введите a (a<>0): ');
    read(a);
  until (a<>0);
  
  repeat
    write('Введите E точность (E>0): ');
    read(E);
  until (E>0);
  
  l:=1;
  k:=0;
  sum1:=0;
  n:=0;
  
  repeat
    sum2:=sum1;
    l:=l*(a+k);
    sum1:=sum1+(1/(l));
    diff:=sum1-sum2;
    k:=k+1;
  until (abs(diff)<E);
  
  writeln('Sum=',sum1);
end.

[Developer]

IndusDev, да, похоже на то