===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.
===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
begin
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.