var n,n1,m,k,i:integer;
f:text;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
close(f);
n1:=0;
for i:=9 downto 0 do
begin
m:=n;
while m>0 do
begin
k:=m mod 10;
if k=i then n1:=10*n1+k;
m:=m div 10;
end;
end;
assign(f,'output.txt');
rewrite(f);
write(f,n1);
close(f);
writeln('Numărul este schimbat și înregistrat în fișierul output.txt');
readln
end.
