Для каждого числа определить число шагов которые надо сделать, чтобы это число обратить в единицу

program O;
uses crt;
var
   i,j,k: longint;
   a: array[0..41] of longint;
label 100;
 
begin
   a[0]:= 1;
   a[1]:= 2;
   a[2]:= 4;
   a[3]:= 5;
   a[4]:= 8;
   clrscr;
   for i:= 5 to 41 do a[i]:= 0;
   for i:= 8 to 8000000 do
      begin
         j:= i;
         k:= 0;
100:
         if j mod 3 = 0 then
            j:= j div 3
         else
            j:= j - 1;
         k:= k + 1;
 
         if j > 1 then goto 100;
 
         if a[k] = 0 THEN
            a[k]:= i
         else if a[k] > i THEN
            a[k]:= i
      end;
 
   for k:= 0 to 41 do
      begin
         if k < 24 then
            begin
               GoToXY(2,k+1);write(k);
               GoToXY(12,k+1);write(a[k])
            end
         else
            begin
               GoToXY(22,k-23);write(k);
               GoToXY(32,k-23);write(a[k])
            end
      end
end.

uses crt;
const
a: array[0..24] of longint = (1,2,4,5,8,14,17,26,44,53,80,134,161,242,404,485,728,1214,1457,2186,3644,4373,6560,10934,13121);
var
   k: integer;
 
begin
   clrscr;
   repeat
      writeln('K = ?');
      readln(k)
   until k < 25;
 
   writeln(a[k]);
   readln
end.

a: array[0..24] of longint = (
  1, 2, 4, 5, 8, 14, 17,  26, 44, 53, {0-9}
  80, 134, 161, 242, 404, 485, 728, 1214, 1457, 2186, {10-19}
  3644, 4373, 6560, 10934, 13121 {20-24});

{ счастливой отладки }                                                                                        const True=False;
begin
  WriteLn(True);
end.

{ счастливой отладки } const True=False;
begin
  WriteLn(True);
end.