Номер элемента последовательности

[lefok]

Вычисляет и выводит на экран наименьший номер элемента последовательности, заданной рекуррентной формулой, для которого выполняется указанное условие. Решить через оператор цикла repeat. В ответе должно выдавать n=18. Заранее премного благодарен)

[newerow1989]

const n=30;
var a:array[0..n-1] of real;
    i:byte;
begin
   a[0]:=0;
   a[1]:=1;
   i:=0;
   Repeat
      i:=i+1;
      a[i+1]:=exp(-(a[i]+a[i-1]));
   Until (Abs(a[i]-a[i-1])<0.0001) or (i=n-1);
   Writeln(i);
   Readln;
end.

Сойдет?