Aдоска задается n. нужно вывести цвет каждой клетки доски n x n, если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая. формат входных данных первая строка входного файла содержит единственное целое n (1 < = n < = 10). формат выходных данных выведите n строк в каждой n символов соответствующий цвету этой ячейки: ‘w’ – если белая и ‘b’ – если черная.
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.