Сформировать квадратную матрицу порядка 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  endend.Тестовый пример:Задайте размер матрицы n10Матрица-результат 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