type vector=array[1..maxint] of longint;
var v:vector;
fin,fout:text;
x,i:integer;
procedure sort(var v:vector;n:integer);
 var i:integer; ext:boolean; elem:longint;
 begin
 ext:=true;
 while ext do begin
  ext:=false;
  for i:=1 to n-1 do
   if v[i]>v[i+1] then begin elem:=v[i];
                             v[i]:=v[i+1];
                             v[i+1]:=elem;
                             ext:=true;
                             end;
  end;
 end;
begin
assign(fin,'algsort.in');reset(fin);
assign(fout,'algsort.out');rewrite(fout);
readln(fin,x);
for i:=1 to x do
 read(fin,v[i]);
sort(v,x);
for i:=1 to x do
write(fout,v[i],' ');
close(fin);close(fout);
end.