program test (input,output) ;
var i : integer ;
var nx : integer ;
var x : array [1..20] of real ;

procedure fillarray(a: array [1..20] of real ; n : integer );
begin
  n:=1;
  read (a[n]);
  while ((n<21) and (a[n]>0)) do
    begin
      n:=n+1;
      read(a[n])
    end;
  n:=n-1
end;

procedure sortarray(a: array [1..20] of real ; n : integer );
var i,j: integer ;
var temp : real ;
begin
  i:=1;
  while (i<=(n-1)) do
    begin
      j:=i+1;
      while (j<=n) do
        begin
          if (a[i]>a[j]) then
            begin
              temp:=a[i];
              a[i]:=a[j];
              a[j]:=temp
            end;
          j:=j+1
        end;
      i:=i+1
    end
end;
          
begin
  fillarray (x,nx);
  i:=1;
  while (i<=nx) do
    begin
      write(x[i]);
      i:=i+1
    end;

  sortarray (x,nx);
  i:=1;
  while (i<=nx) do
    begin
      write(x[i]);
      i:=i+1
    end
end.