Определить, может ли шахматный конь за один ход попасть из клетки с координатами (х1,у1) в клетку с координатами (х2,у2). на Pascal

var x1, x2, y1, y2: integer;

begin

read(x1, y1, x2, y2);

if (abs(x1 - x2) = 1) and (abs(y1 - y2) = 2) or (abs(x1 - x2) = 2) and (abs(y1 - y2) = 1) then

writeln('Может')

else

writeln('Не может');

end.