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

Question

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

Answer 1

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.