Ответ:
var
A, B: Integer;
begin
Write(‘Введите 2 целых числа: ‘);
Readln(A, B);
Writeln (‘Разность большего и меньшего = ‘ + IntToStr (Abs (A — B)));
end;
Ответ:
var
A, B: Integer;
begin
Write(‘Введите 2 целых числа: ‘);
Readln(A, B);
Writeln (‘Разность большего и меньшего = ‘ + IntToStr (Abs (A — B)));
end;