procedure foo(a,b,c:integer);
begin
if a>b then foo(c,a,b)
else writeln(a,',',b,',',c);
end;

var
a,b,c:integer;
begin
read(a,b,c);
foo(a,b,c);
end.

输入：3 1 2
输出：2,3,1