составьте программу генерирующую одномерный массив из элементов двумерного массива А(N,N),расположенных над главной диагональю

а напишете пожалуйста так как должно быть в паскале авс.нет

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 const m = 100; var i,j,n: byte; arr1: array [1..m,1..m] of integer; arr2: array [1..m] of integer; begin write('Ко-во эл-ов квадратной матрицы: '); readln(n); for i:=1 to n do begin for j:=1 to n do begin arr1[i,j]:=random(50); write(arr1[i,j],' '); end; writeln; end; writeln('Полученный массив:'); for i:=1 to n do for j:=1 to n do if (j < n-i+1) then begin arr2[i]:=arr1[i,j]; write(arr2[i],' '); end; writeln; end.