Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты ферзя и координаты другой фигуры.

Входные данные Выходные данные
1 YES
1
2
1
-----------------------------------------------------------------------
1 NO
1
3
2
Heeelp me, please!
Буду ооочень благодарна!!!

Var x1,x2,y1,y2:integer;
beginwrite(Введите координаты х и у ферзя: );
readln(x1,y1);
write(Введите координаты х и у фигуры: );
readln(x2,y2);
if (abs(x1-x2)=abs(y1-y2)) or (x1=x2) or (y1=y2) then
  writeln(YES) else writeln(NO)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.