7 случайных чисел возвести в 2, 3, 4 степень pascal

829 8262982822882112882828282882

Program lab3; const n=10;                   {количество элементов в массиве} var    a: array [1..n] of real;           {объявление массива а}    i: byte;                                   {переменная для циклов}    b: boolean;                           {идентификатор роста}begin      writeln('vvedite tselie chisla matrici a[',n,',',n,']');       for i: =1 to n do begin                   {циклвводавмассив}          write('a[',i,'] = ');           readln(a[i]);       end;       writeln;       writeln('matraca imeet vid: ');       for i: =1 to n do begin                   {}          write(a[i]: 3: 3,'   ');         end;       writeln;       b : = true;       for i: =1 to n-1 do               {цикл определения роста}          if (a[i] > a[i+1]) then begin   {если текущий больше следующего}              b : = false;                                     {значит масив невозростающий}              break;           end;       if (b) then writeln('masiv a - vozrostaushaya posledovatelnost''')      else writeln('masiv a - ne vozrostaushaya posledovatelnost''');       readln;