PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (n, k) := (5, 1);
var a := MatrFill(n, n, 2);
for var i := n - 1 downto 1 do
for var j := 0 to n - 1 - i do
begin
a[i + j, j] := k;
Inc(k)
end;
a.Println(3)
end.
