Необходимо составить программу с двумерным массивом. Для заполнения данного массива нужно использовать генератор случайных чисел.I - отвечает за номер строки.J - отвечает за номер столбца.Заполненные массивы должны выглядеть так:при const n=3 1 2 12 3 21 2 1при const n=51 2 3 2 12 1 2 1 23 2 1 2 32 1 2 1 21 2 3 2 1Желательно, составить блок-схему.

В программе две константы: n и m. n отвечает за размер массива, m за максимальное значение случайного числа от  0 до на 1 меньше чем само m.

Program Zadacha;
Const n = 5; m = 5;
Var a: Array [1..n, 1..n] of Integer;
i, j: Integer;
Begin
Randomize;
For i := 1 To n Do
For j := 1 To n Do
a[i, j] := Random(m);
WriteLn(Результат:);
For i := 1 To n Do
Begin
For j := 1 To n Do
Write(a[i, j], );
WriteLn;
End;
ReadLn;
End.