begin
var a := MatrGen(4, 4, (i, j)-> 4 * i + j + 1);
a.Println(3);
Writeln;
for var j := 0 to 3 do
for var i := 0 to 3 do
Write(a[i,j]:3);
Writeln
end
end.
begin
var a := MatrGen(4, 4, (i, j)-> 4 * i + j + 1);
a.Println(3);
Writeln;
for var j := 0 to 3 do
begin
for var i := 0 to 3 do
Write(a[i,j]:3);
Writeln
end
end.