Pascal :

var n,a,b,c,d:integer;
BEGIN
	readln(n);
	a:=n div 100;
	b:=n div 10 mod 10;
	c:=n mod 10;
	if a<b then
	begin
		d:=a;	a:=b;	b:=d;
	end;
	if a<c then
	begin
		d:=a;	a:=c;	c:=d;
	end;
	if b<c then
	begin
		d:=b;	b:=c;	c:=d;
	end;
	writeln(a*100+b*10+c+c*100+b*10+a);

END.