Даны координаты (целые от 1 до 8) двух полей шахматной доски.
Определить, может ли конь за один ход перейти с одного из этих полей на
другое. ПАСКАЛЬ

var
  x1, x2, y1, y2: shortint;

begin
  readln(x1, y1);
  readln(x2, y2);
  if ((abs(x1 - x2) = 2) and (abs(y1 - y2) = 1))
or
((abs(x1 - x2) = 1) and (abs(y1 - y2) = 2))
    then
    write('YES')
  else write('NO')
end.

Спасибо