{Переставить цифры числа так, чтобы образовалось наименьшее число,
записанное теми же цифрами}
program borlpasc;
var n:string; c:char;i,j:integer;
begin write('введите n='); readln(n);
for j:=1 to length(n) do
for i:=1 to length(n)-1 do
if n[i]>n[i+1] then begin c:=n[i]; n[i]:=n[i+1]; n[i+1]:=c;
end;
writeln('n=',n);
end.