Procedure f(k,n: integer); begin inc(k); if(k mod 2 = 0) and (n>0) then begin f(k,n

Procedure f(k,n: integer); begin inc(k); if(k mod 2 = 0) and (n>0) then begin f(k,n div 3); write(n); f(k,n-k); end; if(k mod 2 <> 0) and (n>0) then begin f(k, n div 2); f(k, n-k-1); write(n); end; end;

Проследим рекурсивные вызовы:
f(0,6)
Выполняется условие if(k mod 2 <> 0) and (n>0):
f(1, 3)
Выполняется условие if(k mod 2 = 0) and (n>0)
f(2,1)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 0)
f(3, -3)
Вывод 1
Вывод 3
f(2,1)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 0)
f(3, -3)
Вывод 1
f(1, 4)
Выполняется условие if(k mod 2 = 0) and (n>0)
f(2,1)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 0)
f(3, -3)
Вывод 1
Вывод 4
f(2,2)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 1)
Выполняется условие if(k mod 2 = 0) and (n>0)
f(4,0)
Вывод 1
f(4,-3)
f(3, -2)
Вывод 2
Вывод 6
В результате получаем 13114126
Ответ: 13114126