Задача про шахматную доску, Паскаль

[Locksmaster]

Даны координаты поля шахматной доски (x,y). Учитывая, что левое нижнее поле доски (1,1) является черным проверить истинность высказывания "Данное поле является белым".
Мое решение:

var x,y:integer;
begin
writeln('Введите координаты поля');
read(x,y);
if((x mod 2=1)and(y mod 2=1))or((x mod 2=0) and (y mod 2=0)) then
writeln('Клетка - черная')
else
writeln('Клетка - белая');
end.

Есть ли лаконичнее?

[Abstraction]

(x+y) mod 2 = 0

[Locksmaster]

Спасибо тебе