(Pascal) Дан ряд, найти частичную сумму ряда(Ряд сходится к значению 1)

[MooonyCat]

Дан ряд, найти частичную сумму ряда(Ряд сходится к значению 1)

Я не силен в pascal и совсем запутался, прошу помощи...
Что-то напечатал, но запутался.

Program lab2; 
var i,:Integer;
sum,e,a: real;
begin
ReadLn(e);
sum:=0;
repeat
a:=1/(i*(i*1)(i+2))
writeln('sum=',sum:0:5);
writeln('1=',1:0:5);
readln;
end.

[type_Oleg]

Сообщение от MooonyCat

но запутался.

Я тоже. Непонятно:
- чему равна в начале переменная i, и как она меняется
- где волшебное слово until для repeat, то есть до каких пор будут печататься нули ( ибо sum=0 и никак не изменяется)
- для чего вам переменная e, если вы ее не используете
- и т.д.

[MooonyCat]

Спасибо, так лучше ?

Program lab2; 
var i,:Integer;
sum a,: real;
begin
write('n=');
readln(n);
sum:=0;
for i:=1 to n do
 begin
a:=1/(i*(i+1)(i+2))
writeln('sum=',sum:0:5);
writeln('1=',1:0:5);
readln;
end.

[Serge_Bliznykov]

Program lab2;
var i:Integer;
  sum,e,a: real;
begin
  ReadLn(e);
  sum:=0;
  i := 0;
  repeat
      inc(i);
      a:=1/(i*(i+1));
      sum:=sum+a;
  until a<e;
  writeln('sum=',sum:0:5,' iteration ',i);
  readln;
end.

[MooonyCat]

Огромное спасибо !