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

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.

Program znanija;
var A:array[1..20] of integer;   
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое ) 

for i:=1 to 20 do  A[i]:=random(9); // заполняем массив 

for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;  

for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив 

writeln();  // просто перевод на новую строку для красоты 

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.