Program Boolean35;
Var
x1,y1,x2,y2:Integer;
Begin
WriteLn('Введите координаты первого поля: ');
ReadLn(x1,y1);{если (y+x) mod 2=0 то поле черное, иначе - поле белое}
WriteLn('Введите координаты второго поля: ');
ReadLn(x2,y2);
WriteLn((y1 + x1) Mod 2 = (x2 + y2) Mod 2);
end.