ferzUgrozhaet

program ferz;

var
  k, l, m, n: integer;

begin
  writeln('Введите координаты ферзя (k l):');
  readln(k, l);
  writeln('Введите координаты клетки (m n):');
  readln(m, n);

  if (k = m) or (l = n) or (abs(k - m) = abs(l - n)) then
    writeln('Ферзь угрожает клетке (', m, ', ', n, ')')
  else
    writeln('Ферзь не угрожает клетке (', m, ', ', n, ')');
end.