Дана функция, генерирующая последовательность; найти N-ый элемент этой последовательности - Pascal

Формулировка задачи:

Вам дана функция генерирующая последовательность! F(1)={1} F(i)={F(i-1),i,F(i-1)} Например F(3)={1,2,1,3,1,2,1} генерирует эту последовательность. Для заданного целого числа N найдите число стоящее на позиции х в последовательности F(N).

Решение задачи: «Дана функция, генерирующая последовательность; найти N-ый элемент этой последовательности»

Листинг программы

const
  maxLen = 1000;
var
  a : array [0..maxLen] of Integer;
  N, x, i : Integer;
begin
  a[0] := 1;
  a[1] := 1;
  N := 1;
  
  Write('x = '); ReadLn(x);
  while a[0] < x do
    begin
      Inc(N);
      Dec(x, a[0]);
      for i := 1 to a[0] do
        a[a[0] + 1 + i] := a[i];
      a[a[0] + 1] := N;
      a[0] := a[0]*2 + 1;
    end;
    
  WriteLn(a[x]);
end.

Объяснение кода листинга программы

Данный код на языке Pascal представляет собой программу для поиска N-го элемента в последовательности чисел. В начале кода объявляются необходимые переменные: максимальная длина последовательности (maxLen), массив a для хранения последовательности (a), переменная N для хранения номера текущего элемента (N), переменная x для чтения входного числа (x) и переменная i для цикла. Затем в цикле while происходит следующее:

Инкрементируется значение переменной N, пока значение a[0] меньше значения x.
Декрементируется значение x, пока оно не станет больше значения a[0].
Для каждого i от 1 до a[0] обновляется значение a[a[0] + 1 + i] путем копирования значения a[i] и обновляется значение a[a[0] + 1] путем установки значения N.
Значение a[0] увеличивается на 1, чтобы перейти к следующему элементу последовательности.
Выводится значение a[x]. Таким образом, данный код позволяет найти N-й элемент в последовательности чисел.