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

Var
   n, i, j: integer;
begin
     readln(n);
     for i := 1 to n do
     begin
         for j := 1 to n do
             if ((j + i) mod 2 = 0) then
                write(W:2)
             else
                 write(B:2);
         writeln;
     end;
end.