Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого

var a: array[1..6, 1..3] of integer;

i, j, n: integer;

begin

writeln(\'Введите n\');

j := 1;

for i := 1 to 6 do begin

readln(n);

n := n * 2;

a[i, j] := n;

end;

j := 2;

for i := 1 to 6 do a[i, j] := (i + j) * (i * j);

j := 3;

for i := 1 to 6 do a[i] := i mod 2;

for i := 1 to 6 do for j := 1 to 3 do write(a[i, j]:4);

end.