// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
Begin var (a,b,c):=ReadInteger3('a, b, c ->'); var x:= min(a,min(b,c)); var y:= max(a,max(b,c)); var z:= 0; if (a <> x)and(a <> y) then z:= a; if (b <> x)and(b <> y) then z:= b; if (c <> x)and(c <> y) then z:= c; Writeln(x, ' ', z, ' ', y); end.