var v:array[1..500000] of longint;
n,i,t,a:longint;
f,g:text;
k:boolean;
begin
assign(f,'algsort.in');
assign(g,'algsort.out');
reset(f);rewrite(g);
readln(f,n);
for i:=1 to n do
    read(f,v[i]);
t:=n;
repeat
      k:=true;
      for i:=1 to t-1 do
          if v[i]>v[i+1] then
             begin
             a:=v[i];
             v[i]:=v[i+1];
             v[i+1]:=a;
             k:=false;
             end;
      t:=t-1;
until k=true;
for i:=1 to n do
    write(g,v[i],' ');
close(f);close(g);
end.