Программа

Program Pilshikov_5_57_03 (input,output);
{ Задано натуральное k.
  Напечатать k-ю цифру
  последовательности 1123581321...,
  в которой выписаны подряд все числа
  Фибоначи. }
Var K,
    CurrentQuantitySymbol,
    PredFibonachi,
    CurrentFibonachi,
    CurrentFibonachiVar,
    NextFibonachi:integer;
    KSymbol:0..9;
BEGIN
  Write('Введите K ');
  Readln(K);
  CurrentFibonachi:=1;
  NextFibonachi:=1;
  CurrentQuantitySymbol:=1;
  while K>CurrentQuantitySymbol do
    Begin
      K:=K-CurrentQuantitySymbol;
      PredFibonachi:=CurrentFibonachi;
      CurrentFibonachi:=NextFibonachi;
      NextFibonachi:=PredFibonachi+CurrentFibonachi;
      CurrentFibonachiVar:=CurrentFibonachi;
      CurrentQuantitySymbol:=0;
      while CurrentFibonachiVar>0 do
        begin
          CurrentFibonachiVar:=CurrentFibonachiVar div 10;
          CurrentQuantitySymbol:=CurrentQuantitySymbol+1
        end
    End;
  CurrentFibonachiVar:=CurrentFibonachi;
  for K:=K to CurrentQuantitySymbol-1 do
    CurrentFibonachiVar:=CurrentFibonachiVar div 10;
  KSymbol:=CurrentFibonachiVar mod 10;
  Writeln(KSymbol)
END.