Что будет выведено на экран в результате работы программы? нарисуйте дерево рекурсивных вызовов?

program main;
procedure f (n: integer);
begin write(n);
if n > 2 then begin f(n-3);
f(n-2);
f(n-1);
end;
end;
begin f(4);
end.

# https://pastebin.com/V2MMpJeN

#

# A.

def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")

print(f"A. function(1230) returns {function(1230)}")

# B.

def function(digit): return digit >= 0 and digit <= 2**8

print(f"B. function(751) returns {function(751)}")

# C.

def function(digit):

if digit < 2: return False

if digit == 2: return True

i=2

lim=int(digit**(1/2))

for n in range(i, lim + 1):

if digit % n == 0: return False

# конец двойной табуляции

return True

# конец табуляции

print(f"C. function(17) returns {function(17)}")

n=int(input("<-- enter digit: "))

print(f"C. function({n}) returns {function(n)}")

print("Число", n, "простое" if function(n) else "составное")

Program CountA;

Uses Crt;

var a,n,x,i:integer;

begin

clrscr;  // очищаем экран

write('Введите число n:');

readln(n); // ввод данных

write('Введите цифру а: ');

readln(a);  // ввод данных

x:=1; i:=0;  i-счётчик цифр а  

while (n<>0) do // Пока n не стало равным нулю

begin

    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  

   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 

   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)

 end;

writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');

readkey; // Пауза до нажатия на любую клавишу

end.

Не знаю, правильно или нет‍♀️