Составить программку сортировки 2-х переменных по убыванию, письменно. На Pascal

var a,b:real;

begin

readln(a,b);

if agt;b then writeln(a,' ',b)  

else writeln(b,' ',a);

end.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите через пробел два числа;');

 if a lt; b then Swap(a, b); // a - всегда не меньше b

 Print('По невозрастанию:', a, b)

end.

Пример:

Введите через пробел два числа; 3.6 10

По невозрастанию: 10 3.6