===== PascalABC.NET =====
begin
var a := MatrGen(10, 10, (i, j) -> i < 10 - j ? i + 1 : 0);
a.Print(3)
end.
