program sort;
var a:array[1..10000]of longint;
    i,n,p,j,aux:longint;
    f,g:text;
begin
     assign(f,'algsort.in');reset(f);
     assign(g,'algsort.out');rewrite(g);
     readln(f,n);
     for i:=1 to n do
     read(f,a[i]);
      for i:=1 to n-1 do begin
       p:=i;
       for j:=i+1 to n do
       if a[p]>a[j] then p:=j;
       aux:=a[i];a[i]:=a[p];a[p]:=aux;end;
       for i:=1 to n do write(g,a[i],' ');
       close(f);close(g);
       end.