{* Задача 501 *}

Unit ZADACH501;
Interface
Implementation
Begin
 writeln('Задана матрица размерностью 8*8. Аналогично шахматной доске заполнить в заданной матрице белый поля - 0, черные - 1. ');
End.

Program zadach501;

Uses zadach501.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  i  : integer;
  j  : integer;
  sh : Array [1..8, 1..8] Of integer;
Begin
  clrscr; {* Очищаем экран *}
  For i := 1 To 8 Do {* Цикл для i => [1 .. 8] *}
    For j := 1 To 8 Do {* Увеличиваем j от 1 до 8 с шагом 1 *}
      If (i + j) Mod 2 = 0 Then
        sh[i, j] := 1
      Else sh[i, j] := 0;
        Writeln ('shahmotnaya doska');
  For i := 1 To 8 Do {* Цикл для i => [1 .. 8] *}
  Begin
    For j := 1 To 8 Do {* Переменная j увеличивается с 1 до 8 *}
      write (sh[i, j]);
    Writeln; {* Пустая строка *}
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.