На поле (a,b) расположен король. угрожает ли он полю (c,d)? нужна программа в паскале

Var a,b,c,d : Byte;
Begin
  Readln(a,b);
  Readln(c,d);
  If (abs(a-c)>1) and (abs(b-d)>1) then Write('не ');
  Writeln('угрожает');
end.