Все числа фибоначчи выписали попорядку 1123581321345589... по данному числу n найдите

Var a,b,c,d,n:integer;begin 
writeln('введи номер числа'); 
readln(d); 
b:=0; 
a:=1; 
n:=0; 
 if dlt;0 then while dlt;0 do begin 
 writeln('введено неправильное число ,пробуйте ещё раз');
  readln(d);
  end;
    while clt;2147483646 do begin
    c:=a+b;
    b:=a;
    a:=c;
    n:=n+1;
    if (n=d) then c:=2147483647;if (n=d) then d:=b;
 end;
writeln('это число ',b);
end.