Яболел я хз как решпать. сделать с решением 70

какой класс? 9 или 8?

я незнаю как я в 5 классе

Const     n = 7; // количество наименований товаров var     a: array[1..n,1..3] of integer;     i,k,s: integer; begin for i: = 1 to n do       read(a[i,1],a[i,2],a[i,3]); k: =0; for i: = n downto 1 do       if a[i,2] = 0 then k: =i; if k > 0 then     begin     write('00 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 0 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; k: =0; for i: = n downto 1 do       if a[i,2] = 1 then k: =i; if k > 0 then     begin     write('01 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 1 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; k: =0; for i: = n downto 1 do       if a[i,2] = 10 then k: =i; if k > 0 then     begin     write('10 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 10 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; k: =0; for i: = n downto 1 do       if a[i,2] = 11 then k: =i; if k > 0 then     begin     write('11 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 11 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; end. пример работы программы: 17 1 2 3 0 5 7 1 4 8 11 9 95 0 3 31 10 44 5 1 6 00 - 15+285=300 01 - 34+28+30=92 10 - 1364 11 - 72

Const n=30; var a: array[1..n] of integer;     tek,k,i,j: integer; begin { заполнение массива и вывод на экран }    for j: =1 to n do    begin       a[j]: =random(20);       write(a[j],' ');           if (j mod 10 = 0) then writeln;     end;   writeln; { цикл обработки массива }    for i: =1 to n do    begin     tek: =a[i];     k: =i; { просмотр на повторные }       for j: =i+1 to n do      begin       if (a[j]=tek) then       begin         a[k]: =0;         k: =j;       end;       end;   end;   { конец обработки массива } { вывод итогового массива на экран }   for i: =1 to n do   begin          write(a[i],' ');       if (i mod 10 = 0) then writeln;   end; end.