Дан двумерный массив размера N*N (вводится пользователем). Заполнить матрицу нулям?? и единицами так, чтобы получилась шахматная доска.

Const n=5;var A:array[1..n,1..n] of integer;i,j:integer;beginfor i:=1 to n do begin writeln; for j:=1 to n do    begin  if (odd(i) and odd(j)) or (not odd(i) and not odd(j)) then a[i,j]:=0 else a[i,j]:=1;  write(a[i,j]:3);   end;  end;end.