program ferz;

 

  k, l, m, n: integer;

 

  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, ')');