Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если король за один ход может перейти с одного

var x1, y1, x2, y2, dx, dy : integer;
begin
   write('x1 = '); readln(x1);
   write('y1 = '); readln(y1);
   write('x2 = '); readln(x2);
   write('y2 = '); readln(y2);
   dx := abs(x1 - x2);
   dy := abs(y1 - y2);
   if (dx < 2) and (dy < 2) and not ((dx = 0) and (dy = 0))
      then writeln('True')
      else writeln('False')
end.