PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a, b) := ReadReal2('Введите через пробел два числа;');
if a < b then Swap(a, b); // a - всегда не меньше b
Print('По невозрастанию:', a, b)
end.
Пример:
Введите через пробел два числа; 3.6 10
По невозрастанию: 10 3.6