Задача в Паскале

[Serge_Bliznykov]

а вот мой вариант.
В отличии от вышеприведённых в нём нет ни одной операции минус (и даже скрытой, такой как Dec())

var a, b, Diff : integer;
begin
  a := 21;
  b := 41;
  Diff := 0;
  while a+Diff<b do Diff := Diff + 1;
  while b+Diff<a do Diff := Diff + 1;

  WriteLn('Разность равна ',Diff:1);

[Kingdom_Reborn]

Serge_Bliznykov, при a = -2, b = -1 выдаст 1, хотя на самом деле -2 - (-1) = -1
У вас Diff всегда неотрицательно и всегда при a < b будет неверный результат.

[Serge_Bliznykov]

Сообщение от Kingdom_Reborn

и всегда при a < b будет неверный результат.

Немножко позвольте поёрничать
Простите, я не увидел, а где написано, что нужно найти значение A - B ?
Мой алгоритм находит разность между двумя числами. Причём ВСЕГДА отнимает от большего меньшее. Вот такая вот фича у него.
Поэтому подходит и для положительных и для отрицательных:
при A>B diff := A - B
при A<B diff := B - A