Как решить задачу - Даны координаты двух полей шахматной доски. Координаты клетки - это два числа от 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

Поля имеют разный цвет