//полный код
procedure F(n: integer); forward;
procedure G(n: integer); forward;
procedure G(n: integer);
begin
writeln('*');
if n > 1 then
F(n - 3);
end;
procedure F(n: integer);
begin
writeln('*');
if n > 0 then
G(n - 1);
end;
begin
F(11);
end.
Вывод
*
*
*
*
*
*
*