Найти первый из номеров K, для которых выполняется условие |AK AK–1| < D

[Jereme]

Вот условие:
Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 1, A2 = 2, AN = (AN–2+ AN–1)/2, N = 3, 4, ... Найти первый из номеров K, для которых выполняется условие |AK AK–1| < D, и вывести этот номер, а также числа AK–1 и AK.


program lab;
var
a:array[1..1000] of real;
i:integer;
d:real;
begin
writeln('Wwedite chislo d>0');
readln(d);
if d>0 then
begin
i:=1;
for i:=1 to 1000 do
begin
a[1]:=1;
a[2]:=2;
a[i]:=(a[i-2]+a[i-1])/2;
end;
for i:=1 to 1000 do
begin
if abs(a[i]-a[i-1])<d then
begin
writeln('i=',i);
writeln('a[',i,']=',a[i]);
writeln('a[',i-1,']=',a[i-1]);
i:=1000;
end;
end;
end
else
writeln('newernij wwod');
end.

[alex_fcsm]

program lab;
uses crt;
var
a:array[1..1000] of real;
i:integer;
d:real;
begin
repeat
clrscr;
writeln('Wwedite chislo d>0');
readln(d);
until d>0;
a[1]:=1;
a[2]:=2;
for i:=3 to 1000 do
a[i]:=(a[i-2]+a[i-1])/2;
for i:=2 to 1000 do
if abs(a[i]-a[i-1])<d then
    begin
     writeln('i=',i);
     writeln('a[',i,']=',a[i]);
     writeln('a[',i-1,']=',a[i-1]);
     break;
    end;
end.

[Jereme]

Пасиб выручил!!!