begin
var m := 5;
var n := 5;
var a := new integer[m, n];
for var i := 0 to m - 1 do
for var j := 0 to n - 1 do
if j > i then a[i, j] := j - i + 1;
if i = j then a[i, j] := 1;
if i > j then a[i, j] := i - j + 1;
end;
a.Println;
end.
begin
var m := 5;
var n := 5;
var a := new integer[m, n];
for var i := 0 to m - 1 do
for var j := 0 to n - 1 do
begin
if j > i then a[i, j] := j - i + 1;
if i = j then a[i, j] := 1;
if i > j then a[i, j] := i - j + 1;
end;
a.Println;
end.