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