Ответ:

var

 A, B: Integer;

begin

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

   Readln(A, B);

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

end;