Сформировать квадратную матрицу порядка n по заданному образцу 2 1 1 … 1 1 1 3 2 1 … 1 1 1 3 3 2 … 1 1 1 …………….. 3 3 3 … 3 2 1 3 3 3 … 3 3 2

const   nn = 20; var   i, j, n: integer;   a: array[1..nn, 1..nn] of integer; begin   writeln('Задайте размер матрицы n');   readln(n);   if n > nn then     writeln('Вы превысили допустимый размер матрицы 20')   else begin     writeln('Матрица-результат');     for i := 1 to n do     begin       writeln;       for j := 1 to n do begin         if i < j then a[i, j] := 1         else if i = j then a[i, j] := 2         else a[i, j] := 3;         write(a[i, j]:2)       end;     end;     writeln   end end. Тестовый пример: Задайте размер матрицы n 10 Матрица-результат  2 1 1 1 1 1 1 1 1 1  3 2 1 1 1 1 1 1 1 1  3 3 2 1 1 1 1 1 1 1  3 3 3 2 1 1 1 1 1 1  3 3 3 3 2 1 1 1 1 1  3 3 3 3 3 2 1 1 1 1  3 3 3 3 3 3 2 1 1 1  3 3 3 3 3 3 3 2 1 1  3 3 3 3 3 3 3 3 2 1  3 3 3 3 3 3 3 3 3 2