program sortare;
type vector=array[1..500001] of longint;
var f,g:text;
    x:vector;
    aux,i,n:longint;
    cond:boolean;
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]);
repeat cond:=true;
       for i:=1 to n-1 do begin if (x[i]>x[i+1]) then begin aux:=x[i];
                                                      x[i]:=x[i+1];
                                                      x[i+1]:=aux;
                                                      cond:=false;
                                                end;
                          end;
until (cond);
for i:=1 to n do write (g,x[i],' ');
close (f);
close (g);
end.