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

uses crt;
var d,a1,a2:real;
    k:integer;
begin
clrscr;
repeat
write('D>0 D=');
readln(d);
until d>0;
a1:=2;
a2:=2+1/a1;
if abs(a2-a1)<d then write('K=',k,'  Ak-1=',a1:0:5,'  Ak=',a2:0:5)
else
 begin
  k:=2;
  repeat
   a1:=a2;
   a2:=2+1/a1;
   k:=k+1;
  until abs(a2-a1)<d;
  write('K=',k,'  Ak-1=',a1:0:8,'  Ak=',a2:0:8);
 end;
readln
end.