Сформировать квадратную матрицу порядка n по заданному образцу (pascal) | 1 2 3 n-2 n-1 n | | 2 1 2 n-2 n-2 n-1 | | 3 2 1 n-4 n-4 n-2| | | |n-1 n-2 n-3 2 1 2 | | n n-1 n-2 3 2 1 |

begin

 var m := 5;

 var n := 5;

 var a := new integer[m, n];

 for var i := 0 to m - 1 do

   for var j := 0 to n - 1 do

   begin

     if j > i then a[i, j] := j - i + 1;

     if i = j then a[i, j] := 1;

     if i > j then a[i, j] := i - j + 1;

   end;

 a.Println;

end.