Question

Написать программу с помощью операторы if. Оператор for применять не требуется.
Ладья бьет либо строго вертикально на любой клетке, либо строго горизонтально. В этом случае меняется у фигуры либо только координата X(номер строки), либо только координата Y(номер столбца).
Требуется определить, бьет ли ладья, стоящая на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке.
Входные данные
Вводятся четыре числа: координаты ладьи (два числа) и координаты другой фигуры (два числа), каждое число вводится в отдельной строке. Координаты - целые числа в интервале от 1 до 8.
Выходные данные
Требуется вывести слово YES, если ладья сможет побить фигуру за 1 ход и NO - в противном случае.

Примеры
Входные данные
1
1
2
2
Выходные данные
NO

Входные данные
1
1
2
1
Выходные данные
YES

Answer 1

Var
   x1,y1,x2,y2:byte;
Begin
Read(x1,y1,x2,y2);
if (x1-x2 = 0)xor(y1-y2 = 0) then Write('YES')
else Write('NO')
End.