Даны два числа. Найти разность большего числа и меньшего.

var

 A, B: Integer;

begin

   Write('Введите 2 целых числа: ');

   Readln(A, B);

   Writeln ('Разность большего и меньшего = ' + IntToStr (Abs (A - B)));

end;