Var
 N:LongInt;
 M,p:Word;
 i,i1,i2,i3,Min:byte;
 A:Array[1..6] of Byte;

Begin
 Write('Enter 6-digital number: ');
 Readln(N);
 for i:=6 downto 1 do
  begin
   A[i]:=N mod 10;
   N:=N div 10;
  end;
 Min:=10;
 for i:=1 to 6 do
  if A[i]<Min then
   begin
    Min:=A[i];
    i1:=i;
   end;
 Min:=10;
 for i:=1 to 6 do
  if (A[i]<Min) and (i<>i1) then
   begin
    Min:=A[i];
    i2:=i;
   end;
 Min:=10;
 for i:=1 to 6 do
  if (A[i]<Min) and (i<>i1) and (i<>i2) then
   begin
    Min:=A[i];
    i3:=i;
   end;
 p:=1000;
 M:=0;
 for i:=1 to 6 do
  if (i<>i1) and (i<>i2) and (i<>i3) then
   begin
    p:=p div 10;
    M:=M+A[i]*p;
   end;
 Writeln('Result: ',M);
 Readln
End.