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

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

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)-gt;ilt;=n-j-1?i+1:0);
  a.Println(3)
end.

Пример
n= 13
  1  1  1  1  1  1  1  1  1  1  1  1  1
  2  2  2  2  2  2  2  2  2  2  2  2  0
  3  3  3  3  3  3  3  3  3  3  3  0  0
  4  4  4  4  4  4  4  4  4  4  0  0  0
  5  5  5  5  5  5  5  5  5  0  0  0  0
  6  6  6  6  6  6  6  6  0  0  0  0  0
  7  7  7  7  7  7  7  0  0  0  0  0  0
  8  8  8  8  8  8  0  0  0  0  0  0  0
  9  9  9  9  9  0  0  0  0  0  0  0  0
 10 10 10 10  0  0  0  0  0  0  0  0  0
 11 11 11  0  0  0  0  0  0  0  0  0  0
 12 12  0  0  0  0  0  0  0  0  0  0  0
 13  0  0  0  0  0  0  0  0  0  0  0  0

P.S. Ненавижу того, кто поставил здесь этот шрифт - все съезжает!