Рекурсия

[o.m.f.g.]

Доброго времени суток:
Помогите, пожалуйста, разобраться с рекурсией:

Дан код:

procedure f(n:integer);
begin
writeln('*');
if n > 0 then begin
writeln('*');
f(n-2);
f(n-2);
f(n div 2);
end
end;
begin
f(6);
end.

Сколько символов '*' будет напечатано в результате?
Понятно, что можно вбить в компилятор и посмотреть, но хотелось бы понять каким образом проход рекурсия здесь. Если можно прям по шага, что-куда идет и как проходит рекурсия. Спасибо

[evg_m]

f(6); вход
	write(*);
	6>0
	write(*)
	f(6-2); =f(4);вход
		write(*);
		4>0
		write(*)
		f(4-2); =f(2);вход
			write(*);
			2>0
			write(*)
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2 div 2); =f(1); вход
				write(*);
				1>0
				write(*);
				f(1-2); =f(-1);вход
					write(*);
					-1>0
				f(-1); выход
				f(1-2); =f(-1);вход
					write(*);
					-1>0
				f(-1); выход
				f(1 div 2); =f(0);вход
					write(*);
					0>0
				f(0); выход
			f(1); выход
		f(2); выход
		f(4-2); =f(2);вход
			write(*);
			2>0
			write(*)
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2 div 2); =f(1); вход
				write(*);
				1>0
				write(*);
				f(1-2); =f(-1);вход
					write(*);
					-1>0
				f(-1); выход
				f(1-2); =f(-1);вход
					write(*);
					-1>0
				f(-1); выход
				f(1 div 2); =f(0);вход
					write(*);
					0>0
				f(0); выход
			f(1); выход
		f(2); выход
		f(4 div 2); =f(2); вход
			write(*);
			2>0
			write(*)
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2 div 2); =f(1); вход
				write(*);
				1>0
				write(*);
				f(1-2); =f(-1);вход
					write(*);
					-1>0
				f(-1); выход
				f(1-2); =f(-1);вход
					write(*);
					-1>0
				f(-1); выход
				f(1 div 2); =f(0);вход
					write(*);
					0>0
				f(0); выход
			f(1); выход
		f(2); выход
        f(4);выход
	f(6-2); =f(4);вход
		write(*);
		4>0
		write(*)
		f(4-2); =f(2);вход
			write(*);
			2>0
			write(*)
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2 div 2); =f(1); вход
				write(*);
				1>0
				write(*);
                                f(1-2); =f(-1); вход  вход только обозначен НЕТ выхода (см. P.S.)
                                f(1-2); =f(-1); вход
                                f(1 div 2); =f(0); вход
			f(1); выход
		f(2); выход
		f(4-2); =f(2);вход
			write(*);
			2>0
			write(*)
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2 div 2); =f(1); вход
				write(*);
				1>0
				write(*);
                                f(1-2); =f(-1); вход
                                f(1-2); =f(-1); вход
                                f(1 div 2); =f(0); вход
			f(1); выход
		f(2); выход
		f(4 div 2); =f(2); вход
			write(*);
			2>0
			write(*)
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2-2); =f(0);вход
				write(*);
				0>0
			f(0); выход
			f(2 div 2); =f(1); вход
				write(*);
				1>0
				write(*);
				f(1-2); =f(-1);вход
				f(1-2); =f(-1);вход
				f(1 div 2); =f(0);вход
			f(1); выход
		f(2); выход
        f(4);выход
	f(6 div 2); =f(3); вход
		write(*);
		3>0
		write(*)
		f(3-2); =f(1);вход
			write(*);
			1>0
			write(*)
			f(1-2); =f(-1);вход
			f(1-2); =f(-1);вход
			f(1 div 2); =f(0); вход
		f(1); выход
		f(3-2); =f(1);вход
			write(*);
			1>0
			write(*)
			f(1-2); =f(-1);вход
			f(1-2); =f(-1);вход
			f(1 div 2); =f(0); вход
		f(1); выход
		f(3 div 2); =f(1); вход
			write(*);
			1>0
			write(*)
			f(1-2); =f(-1);вход
			f(1-2); =f(-1);вход
			f(1 div 2); =f(0); вход
		f(1); выход
        f(3);выход
f(6);выход

как-то так если не напутал
но НЕ до конца!!!!
там где нет выхода на том же уровне!!!