Слон Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%] По заданным координатам...

Question

Слон
Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]
По заданным координатам слона и пешки определить, находится ли пешка под боем слона.
Входные данные:
Во входном потоке в первой строке через пробел заданы четыре целых числа (0 < A, B , C, D < 9). Первые пара чисел определяет координаты слона, вторая - координаты пешки.

Выходные данные:
Вывести YES или NO

Пример входного файла (input.txt):
1 1 2 2
Пример выходного файла (output.txt):
YES

Answer 1

Var
  A, B, C, D: integer;
  f1, f2: Text;

begin
  Assign(f1, 'input.txt');
  Reset(f1);
  Assign(f2, 'output.txt');
  Rewrite(f2);
  while not Eof(f1) do
  begin
    Readln(f1, A, B, C, D);
    if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
    else writeln(f2,'NO')
  end;
  Close(f1);
  Close(f2)
end.