Var a,b,c:longint;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
write ('C = ');
readln (c);
if (a<=b) and (b<=c) then writeln (c,' ',b,' ',a) else<br> if (b<=a) and (a<=c) then writeln (c,' ',a,' ',b) else<br> if (c<=a) and (a<=b) then writeln (b,' ',a,' ',c);<br>end.