Заполнение двумерного статического массива Опции

[4итер]

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

[APAL]

Кстати, если все таки подходить к решению именно как к шахматной доске (или хотя бы чтобы количество строк/столбцов было четным), то не обязательно перебирать в цикле весь массив:

 For i:=1 to N div 2 do
  For j:=1 to N do
  If odd(j) then m[i*2-1,j]:=1
    else m[i*2,j]:=1;