Дана матрица a [n,n] заполнить матрицу следующим образом в элементы матрицы лежащие на главной и на побочной диагонали плместить1. в элементы матрицы лежащие над диагонали и под диагонали поместить 2. в остальныеиэлементы матрицы поместить 0.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->
      (i=j) or (j=n-i-1) ? 1 :
      (j>i) and (j>n-i-1) or (j<i) and (j<n-i-1) ? 0 : 2);
  a.Println(2)
end.