Question

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

Answer 1

var

 A, B: Integer;

begin

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

   Readln(A, B);

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

end;