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

Var a, b, c, d, n:integer; begin

writeln ('введи номер цифры') ;

readln (d) ;

b:=0;

a:=1;

n:=0;

if d<0 then while d<0 do begin

writeln ('введено неверное число, попробуйте ещё раз') ;

readln (d) ;

end;

while c<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.