Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. вводятся четыре числа: координаты ферзя и координаты другой фигуры. входные данные выходные данные 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.