program jjj;
uses crt;
const l=10;
var a:longint;
x:array[1..l] of integer;
i,j,n,k,m,cod:integer;
s:string;
BEGIN clrscr;
writeln('vvedite chislo a');
readln(a);
str(a,s);
for i:=1 to length(s) do begin val(s[i],x[i],cod);
write(x[i]:3);
end;
m:=length(s);
for j:=1 to m-1 do begin k:=x[j];
n:=j;
for i:=j+1 to m do if x[i]n:=i;
end;
k:=x[j];
x[j]:=x[n];
x[n]:=k;
end;
writeln;
for i:=1 to m do write(x[i]:7);
writeln;
readln;
END .