program problema;

var f,g:text;
    x:array[1..500000] of 0..maxlongint;
    n,i,j:1..500000;
    aux:0..maxlongint;


begin
assign(f,'algsort.in'); reset(f);
assign(g,'algsort.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
   read(f,x[i]);
for i:=1 to n-1 do
   for j:=i+1 to n do
      if x[i]>x[j] then begin
                        aux:=x[i];
                        x[i]:=x[j];
                        x[j]:=aux;
                        end;
for i:=1 to n do
   write(g,x[i],' ');
close(f);
close(g);
end.