Заполнить массив a[1… 3,1…

Var a: array [1… 3, 1… 2] of integer; i, j: integer; begin for i: =1 to 3 do for j: =1 to 2 do a[i, j]: =i*j; for j: =1 to 2 do begin for i: =1 to 3 do write (a[i, j], '); writeln; end; end.