№4 Дан рекурсивный алгоритм:
procedure F(n: integer);
begin
writeln('*');
if n > 0 then begin
writeln('*');
F(n-2);
F(n div 2);
end
end;
Сколько символов "звездочка" будет напечатано на экране при выполнении вызова F(7)?

procedure F(n: integer);
begin
    write('*');
    if n > 0 then begin
        write('*');
        F(n - 2);
        F(n div 2);
    end
end;

begin
    f(7);
end.

напечатает 31 звездочку
заменила writeln на write чтоб легче было считать