Как решить - даны координаты двух полей шахматной доски. координаты клетки - это два числа от 1 до 8: номер столбца и номер строки. одного ли цвета эти клетки на шахматной доске? надо сделать в паскале

Var x1,y1,x2,y2:integer;
begin
write('Первое поле:');
readln(x1,y1);
write('Второе поле:');
readln(x2,y2);
if ((x1+y1)mod 2)=((x2+y2)mod 2)
 then writeln('Поля имеют одинаковый цвет')
 else writeln('Поля имеют разный цвет');
end.

Пример:
Первое поле:2 3
Второе поле:7 5
Поля имеют разный цвет