var f,t:text;
    a:array[1..1000] of integer;
    n,i,x,j,min,nomer_min:integer;
begin
assign(t,'d:\input.txt');
reset(t);
n:=0;
assign(f,'output.txt');
    rewrite(f);
while not eof(t) do
 begin
  inc(n);
  read(t,a[n]);
 end;
 for i := 1 to n-1 do
  begin
    min := A[i];
    nomer_min := i;
    for j := (i + 1) to n do
    begin
      if A[j] < min then
      begin
        min := A[j];
        nomer_min := j;
      end;
    end;
    A[nomer_min] := A[i];
    A[i] := min;

    for j := 1 to n do
    write(f,A[j]:4);
    end;
    close(f);
    close(t);
end.