на поле (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.