program p10_8; {Pag. 95}
{--------------------------------------------------------------
    Se da un nr natural n cu cel mult 255 cifre.
    Sa se afiseze la ecran cel mai mic numar ce se poate forma 
    cu cifrele lui n 
    (fiecare dintre cele 10 cifre se va folosi cel mult o data).
    De exemplu, pentru 503356 se va afisa 3056.
 --------------------------------------------------------------}
uses crt;
var
    s, n: string;
    i, j: byte;
    c: char;
begin
 clrscr;
 Writeln('Introdu un numar: ');readln(s);
 for i:=1 to length(s)-1do
 for j:=i+1 to length(s)do
   if s[i]>s[j]then 
    begin
     c:=s[i];
     s[i]:=s[j];
     s[j]:=c
    end;
 n:=s[1];
 for i:=1 to length(s)do
   if s[i]<>n[length(n)]then n:=n+s[i];
 if n[1]='0'then begin
   n[1]:=n[2];
   n[2]:='0'
 end;
 Writeln('Nr. minim: '+n);
 readkey
end.