Годовой баланс

procedure max(var n:integer);
var s:string; i,j:integer;
  begin
    s:=inttostr(n);
    for i:=1 to length(s)-1 do
      for j:=i+1 to length(s) do 
        if  (s[i]<s[j]) and(s[i]<>'-') then swap(s[i],s[j]);
      n:=strtoint(s);
  end;
 
procedure min(var n:integer);
var s:string; i,j,p,t:integer;
  begin
    s:=inttostr(n);
    for i:=1 to length(s)-1 do
      for j:=i+1 to length(s) do 
        if  (s[i]>s[j])and(s[i]<>'-') then swap(s[i],s[j]);
      
      for i:=1 to length(s) do
        if (s[i]>'0') and (s[i]<>'-') then begin t:=i; break; end;
      if (s[1]='0') and (length(s)>1) and (n>0) then swap(s[1],s[t]) else
      if (n<0) and (s[2]='0') and (length(s)>1) then swap(s[2],s[t]);
      n:=strtoint(s);
  end;
 
 
var a,b,t:integer; 
begin
read(a,b); 
  if (a>0) and (b>=0) then begin max(a); min(b); end else
    if(a<0) and (b<=0) then begin min(a); max(b); end else
      if (a>=0) and (b<0) then begin max(a); max(b); end else 
        if (a<=0) and (b>0) then begin min(a); min(b); end;
      t:=a-b;
      print(t);
      end.

procedure rebuild(var n: integer; s, h: integer);
var
  i: integer;
  d: array[-9..9] of integer;
begin
  if abs(n) > 11 then
    begin
      for i := -9 to 9 do d[i] := 0;
      repeat
        inc(d[n mod 10]);
        n := n div 10
      until n = 0;
      while d[s] = 0 do inc(s, h);
      if s = 0 then
        begin
          i := s;
          repeat inc(i, h) until d[i] > 0;
          n := i;
          dec(d[i])
        end;
      repeat
        for i := 1 to d[s] do n := n * 10 + s;
        inc(s, h)
      until abs(s) > 9
    end
end;
 
var
  a, b: integer;
begin
  readln(a, b);
  rebuild(a, 9, -1);
  rebuild(b, -9, 1);
  writeln(a, ' ', b)
end.