Дан рекурсивный метод:procedure F(n: integer);begin writeln(039;*039;); if n amp;gt; 0 then

Дурацкая по собственной трудозатратности задачка, если делать её вручную.
А если написать полную программку и воткнуть туда счетчик вызовов F(n), то окажется, что для вызова F(6) процедура будет вызвана 97 раз. При каждом вызове выводится звездочка, потому их будет выведено тоже 97.

Проверка производилась по последующей программке:
var
  k:integer;

procedure F(n: integer);
begin
  writeln('*');
  k:=k+1;
  if n gt; 0 then begin
    F(n - 3);
    F(n - 2);
    F(n div 2);
    F(n div 2);
  end
end;

begin
  k:=0;
  F(6);
  Writeln(k)
end.