Даны координаты двух различных полей шахматной доски

var
  x,x1,y,y1:integer;
begin
  write('Введите координату Х поля шахматной доски: ');
  readln(x);
  write('Введите координату Y поля шахматной доски: ');
  readln(y);
  write('Введите координату Х1 поля шахматной доски: ');
  readln(x1);
  write('Введите координату Y1 поля шахматной доски: ');
  readln(y1);
  if ((x>0) and (x<9)) and ((y>0) and (y<9)) and ((x1>0) and (x1<9)) and ((y1>0) and (y1<9)) then
    begin
      if (x mod 2=0) and (x1 mod 2=0) then
        begin
          if (y mod 2<>0) and (y1 mod 2<>0) then
          writeln('Верно')//белый
          else
          writeln('Неверно');//чёрный
        end;
      if (x mod 2<>0) and (x1 mod 2<>0) then
        begin
          if (y mod 2=0) and (y1 mod 2=0) then
          writeln('Верно')//белый
          else
          writeln('Неверно');//чёрный
        end;
    end
  else
  writeln('Неверный ввод: числа должны быть в диапазоне от 1 до 8!');
end.

uses crt;
const p=[1..8];
var x1,y1,x2,y2:byte;
begin
clrscr;
repeat
writeln('Введите координаты первого поля от 1 до 8');
readln(x1,y1);
if not(x1 in p)or not(y1 in p) then writeln('Координаты введены неверно!');
until (x1 in p)and(y1 in p);
repeat
writeln('Введите координаты второго поля от 1 до 8, отличные от первого');
readln(x2,y2);
if not(x2 in p)or not(y2 in p)or((x1=x2)and(y1=y2))
then writeln('Координаты введены неверно!');
until (x1 in p)and(y1 in p)and((x1<>x2)or(y1<>y2));
{если сумма всех координат четная-один цвет}
write((x1+y1+x2+y2) mod 2=0);
readln
end.

((x1+y1) mod 2) = ((x2+y2) mod 2)