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