рекурсия pascal дерево вызовов

Program primer;
Uses crt;
Var
N, a: integer;
Function f(n:integer):integer;
var x,y:integer;
Begin
If n =1 then
f :=1 {условие завершения рекурсии}
Else
Begin
If odd ( n ){проверка на нечетность числа}
then begin
n:= n div 2;
x:=f(n);
y:=f(n+1);
f:=x+y;
end
else begin
n:= n div 2;
f:=f(n)
end;
end ;
end ;
begin {начало основной программы}
clrscr;
write(‘ Введите число – ‘);
readln(n);
a:=f(n);
write(‘ результат – ‘, a);
end.
помогите составить дерево вычислений для например
цифры 9 понять какие значения заносятся в результат