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

Var a,b,c,d,n:integer;begin 
writeln(введи номер цифры); 
readln(d); 
b:=0; 
a:=1; 
n:=0; 
 if d writeln(введено неверное число ,попробуйте ещё раз);
  readln(d);
  end;
    while c    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.