(30Б) с информатикой!

Большинство задач уже прорешал, остались две, которые не выходят.
Рекурсивный алгоритм, паскаль.
Объясните решение. Работаю методом древа, можно и формулой

procedure F(n: integer);
begin
writeln(n);
if n < 5 then begin
writeln(n);
F(n+3);
F(n*3)
end
end;

procedure F(n: integer); forward;
procedure G(n: integer); forward;
procedure F(n: integer);
begin
writeln('*');
if n > 0 then
G(n - 1);
end;
procedure G(n: integer);
begin
writeln('*');
if n > 1 then
F(n - 2);
end;