Задается N. Нужно вывести цвет каждой клетки доски NxN, если известно…

uses crt; var n,i,j: integer; a: array[1… 100,1… 100] of integer; beginread (n); for i: =1 to n dofor j: =1 to n doif (i+j) mod 2=0 thenwriteln ('Клетка в ',i,' строке и ',j,' столбце — белая.') elsewriteln ('Клетка в ',i,' строке и ',j,' столбце — черная.'); end.