Все числа фибоначчи выписали подряд 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.