Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8).
Program Boolean36;
Var
x1, y1, x2, y2: Integer;
Begin
WriteLn('Введите координаты первого поля: ');
ReadLn(x1, y1);
WriteLn('Введите координаты второго поля: ');
ReadLn(x2, y2);
WriteLn((x1 = x2) Or (y1 = y2));
end.