Координаты двух полей шахматной доски заданы в виде двух пар чисел х1,y1 и х2,y2. на первом поле стоит ферзь, на втором - конь. определить, бьёт ферзь коня, конь - ферзя, или фигуры не угрожают друг другу.(pascal abc)

Ответ давал уже когда- отклика не дождался, видимо. оно так надо было. function knight(x1, y1, x2, y2: integer): boolean; { возвращает true, если возможен переход с (x1,y1) на (x2,y2) } begin   if abs(x2 - x1) = 2 then knight : = (abs(y2 - y1) = 1)   else   if abs(x2 - x1) = 1 then knight : = (abs(y2 - y1) = 2)   else knight : = false end; function queen(x1, y1, x2, y2: integer): boolean; { возвращает true, если возможен переход с (x1,y1) на (x2,y2) } begin   queen : = (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1)) end; var   xk, yk, xq, yq: integer; begin   write('укажите через пробел координаты коня  [1..8]: ');   readln(xk, yk);   write('укажите через пробел координаты ферзя [1..8]: ');   readln(xq, yq);   if knight(xk, yk, xq, yq) then writeln('конь бьет ферзя')   else   if queen(xq, yq, xk, yk) then writeln('ферзь бьет коня')   else writeln('фигуры не угрожают друг другу') end.

Возможно мое решение подойдет не для всех случаев , но вот program w; var x,y,x1,y1: integer; begin  writeln('введите координаты коня');   readln(x,y);   writeln('введите координаты ферзя');   readln(x1,y1);   +3=x1) and (x-3=x1)) or ((x-3=x1) and (y+3= then writeln('конь и ферзь готовы к битве') else writeln('конь и ферзь разошлись миром');   end.

4)Выделенная ячейка вот правильный ответ