Решите по инфе. надо (желательно со схемой или пояснением ) дан рекурсивный алгоритм: procedure f(n: integer); begin writeln(n); if n > 1 then begin writeln(n); f(n-2); f(n-5) найдите сумму чисел, которые будут выведены при вызове f(9).

Код ужасно кривой, но рабочий (надеюсь, принцип понятен): 1. бензин type   benzin=class       public       money: double;       m: integer;           end;   var       b: benzin; begin   b: =new benzin;   b.m: =0;   b.money: =20;   while b.money< 22.0 do   begin   b.money: =b.money*1.02;   b.m: =b.m+1;   writeln('сейчас бензин стоит: ',b.money);   writeln('сейчас месяц прошел: ',b.m);   end;   end. 2. вклад type   biznes=class       public       money: double;       m: integer;       time: integer;           end;   var       b: biznes; begin   b: =new biznes;   writeln('напишите сумму рублей: ');   read(b.money);   writeln('напишите кол-во месяцев: ');   read(b.m);   b.time: =0;   while b.time< b.m do   begin   b.money: =b.money*1.03;   b.time: =b.time+1;   writeln('сейчас сумма: ',b.money);   writeln('прошел месяц: ',b.time); end;       end. 3. тренировки type   sport=class       public       first: double;       day: integer;       first2: double;       first3: double;       first4: double;       first5: double;       first6: double;       first7: double;       answer: double;           end;   var       s: sport; begin   s: =new sport;   s.first: =5;   s.day: =1;     while s.day=1 do   begin   s.first2: =s.first*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first2);   writeln('день: ',s.day);   end;   while s.day=2 do   begin   s.first3: =s.first2*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first3);   writeln('день: ',s.day);   end;   while s.day=3 do   begin   s.first4: =s.first3*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first4);   writeln('день: ',s.day);   end;   while s.day=4 do   begin   s.first5: =s.first4*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first5);   writeln('день: ',s.day);   end;   while s.day=5 do   begin   s.first6: =s.first5*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first6);   writeln('день: ',s.day);   end;   while s.day=6 do   begin   s.first7: =s.first6*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first7);   writeln('день: ',s.day);   end;   while s.day=7 do   begin   s.answer: =s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7;   s.day: =s.day+1;   writeln('ответ: ',s.answer);   end;       end.

program z;

uses crt;

const n=5;

var a: array [1..n] of integer;

      i: integer;

      s: real;

begin 

      clrscr;  

     

      for i: =1 to n do

      readln (a[i]);

 

      clrscr;

   

      for i: =1 to n do

      begin

      write (a[i],',');

      s: =s+a[i];

      end;

 

      writeln;

      s: =s/n;

      writeln (s);

   

      readln

end. всё изи