输入一个四位数，提取它各个数位上的数，排列成由这四位数组成的最大和最小的两个数

var
i,j,p:byte;
a:array [0..4] of char;
begin
for i:=1 to 4 do read(a[i]);
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]>a[j] then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
writeln(a[4],a[3],a[2],a[1]);
p:=1;
while a[p]='0' do inc(p);
for i:=p to 4 do write(a[i]);
end.