program p95_10; {Parag. 8}
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.