Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Данные поля имеют одинаковый цвет» — Pascal(Паскаль)

Program Boolean35;

Var
  x1, y1, x2, y2: Integer;

Begin
  WriteLn('Введите координаты первого поля: ');
  ReadLn(x1, y1); { если (y+x) mod 2=0 то поле черное, иначе - поле белое }
  WriteLn('Введите координаты второго поля: ');
  ReadLn(x2, y2);
  WriteLn((y1 + x1) Mod 2 = (x2 + y2) Mod 2);

end.