Требуется найти n-ый член последовательности типа 1121123211234321 ограничение по времени: 5 сек ограничение n< 10^500 000

Uses crt, math; var n: extended; var x: extended; var s: extended; var f: extended; var t: extended; begin               { вводим значения }               writeln('enter n: '); readln(n);               if n > 0 then begin                               { номер последовательности }                               x : = ceil((sqrt(1.0 + 4.0 { 8.0 } * n) - 1.0) / 2.0);                               { количество элементов всех последовательностей }                               s : = x + x*x;                               { s : = s / 2; }                               { относительный номер элемента в последовательности }                               f : = x * 2 - (s - n);                               if f < = x then begin                                               t : = 1 + x - f;                               end;                               if f > x then begin                                               t : = f - x;                               end;                               { выводим результат }                               writeln('t = ', t);                               { задержка }                               readln(n);               end; end.

Из условия   ясно, что жук ползет 5 ночей и 4 дня, значит  (6 * 5) - (4 * 3) = 30 - 12 = 18 метров высота ствола