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

Question

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

Answer 1

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

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

Пример
12.5 13.71.2 13.7