Помогите составить программу на языке Passcal!

[Aleksander Goose]

Найти первые n-членов, их сумму.Найти 1 член последовательности больше заданного числа L и указать его номер.Последовательность an=2+an^2-1/2an-1, a1=2.

[newerow1989]

В формуле удобнее писать символы подчеркивания, чтобы не путаться an_1, либо an-1
Ниже написан код как есть (из-за формулы!)

const L=1000;
var an0,an1,s:real;
    n:integer;
begin
   an1:=1;
   n:=1;
   s:=an1;
   Writeln(an1:5:5);
   Repeat
      n:=n+1;
      an0:=an1;
      an1:=2+an0*an0-1/2*an0;
      s:=s+an1;
      Writeln(an1:5:5);
   Until an1>L;
   Writeln;
   Writeln('n = ',n);
   Writeln('s = ',s:5:5);
   Readln;
end.

Сойдет?

[Aleksander Goose]

Я не думал что кто то ответит, прям то что надо. Спасибо большое!

[newerow1989]

Пожалуйста!