// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a:array[1..6,1..6] of integer;
for var i:=1 to 6 do begin
for var j:=1 to 6 do begin
a[i,j]:=10*i+j;
Write(a[i,j],' ')
end;
Writeln
end
end.
Результат:
11 12 13 14 15 16
21 22 23 24 25 26
31 32 33 34 35 36
41 42 43 44 45 46
51 52 53 54 55 56
61 62 63 64 65 66