EGE #11

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

На выходе у меня 1 "*" Правильно ли?

По данной программе выяснить ответ не представляется возможным потому, что в программе отсутствует описание основной процедуры (точки входа)