jzxx1017求任意三位数打乱次序后最大值

题目描述
任意输入一个三位整数，再把它的次序打乱重新组合一个新的三位整数，使其值最大。

输入
输入只有一行，包括1个整数。

输出
输出只有一行（这意味着末尾有一个回车符号），包括1个整数。

样例输入
470
样例输出
740

满分代码：
program asdj;
var a,c,d,n,t,b:integer;
begin
readln(n);
c:=n mod 10;
a:=n div 100;
b:=trunc((n-a*100-c)/10);
if a<b then begin
t:=a;
a:=b;
b:=t;
end;
if a<c then begin
t:=a;
a:=c;
c:=t;
end;
if b<c then begin
t:=b;
b:=c;
c:=t;
end;
d:=100*a+10*b+c;
writeln(d);
end.