===== PascalABC.NET =====
procedure Fill(var a: array[,] of integer);
begin
var n := a.RowCount;
a := MatrGen(n, n, (i, j) -> i > j ? 0 : j - i + 1);
end;
var M := new integer[6, 6];
Fill(M);
M.Println(2)
end.
===== PascalABC.NET =====
procedure Fill(var a: array[,] of integer);
begin
var n := a.RowCount;
a := MatrGen(n, n, (i, j) -> i > j ? 0 : j - i + 1);
end;
begin
var M := new integer[6, 6];
Fill(M);
M.Println(2)
end.