Задание

Определите целое число, численно равное количеству выводимых на печать звездочек при вызове из программы процедуры G и передаче в нее параметра n=4:
procedure F\(n: integer\); forward;
procedure G\(n: integer\); forward;
procedure F\(n: integer\);
begin
if n > 0 then
G\(n \- 1\);
end;
procedure G\(n: integer\);
begin
write\('\*'\);
if n > 1 then
F\(n \- 3\);
end;
begin
G\(4\);
end.