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

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:real;
  Read(a,b);
  var c:=abs(a-b);
  if a<b then a:=c else b:=c;
  Print(a,b)
end.

Пример
12.5 13.71.2 13.7