// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите три цифры через пробел:',3);
a.Sort;
Writeln(a[0],a[1],', ',a[1],a[0])
end.
Пример
Введите три цифры через пробел: 3 5 1
13, 31