Заполнение массива по типу "шахматной доски"

[4итер]

Создать двумерный статический массив 20*20. Его необходимо заполнить как шахматную доску.

Проблемы с заполнением. нужно белые цвета заполнить "1", а черные "0".

[revizor]

через вложенные циклы. один проходит по строкам а другой по столбцам

[4итер]

если не трудно. Можете расписать? (только начинаю изучение)

[revizor]

const
	SIZE=20;		{ размер массива 20x20 }
var
	A:array[1..SIZE] of array[1..SIZE] of integer;
	i, j: integer;
begin
	for i:=1 to SIZE do
		for j:=1 to SIZE do
			A[i][j]:=(i+j) mod 2;
	
	for i:=1 to SIZE do
	begin
		for j:=1 to SIZE do
			Write(A[i][j], ' ');
		WriteLn('');
	end;
		
	ReadLn;
end.

[4итер]

Спасибо огромное)

[revizor]

пожалуйста)