напишите программу на Паскале.Чтобы получился такой массив

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

i,j:integer;

begin

for i:=1 to 4 do

begin

for j:=1 to 6 do

begin

if j mod 2 <> 0 then a[i,j]:=1

else a[i,j]:=2;

write (a[i,j],' ')

end;

writeln

end

end.