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
Поля имеют разный цвет