Задается N. Нужно...

Задается N. Нужно вывести цвет каждой клетки доски NxN, если известно, что они покрашены в шахматном порядке и клетка (1,1) -белая.

 

uses crt;
var n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
if (i+j)mod 2=0 then
writeln('Клетка в ',i,' строке и ',j,' столбце - белая.')
else
writeln('Клетка в ',i,' строке и ',j,' столбце - черная.');
end.