Const
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if i mod 2=0 then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
000000
111111
000000
111111
000000