var n,i,j,t:longint;
        a:array[1..500000]of longint;
        f:text;

Procedure BS;

Begin
 For i := n-1 DownTo 1 do
  For j := 2 to i do
   If (a[j-1] > a[j]) then
    Begin
     t := a[j-1];
     a[j-1] := a[j];
     a[j] := t;
    End;

End;

   begin
        assign(f,'algsort.in');
        reset(f);
        readln(f,n);
        for i:=1 to n do read(f,a[i]);
        close(f);
        BS;
        assign(f,'algsort.out');
        rewrite(f);
        for i:=1 to n do write(f,a[i],' ');
        close(f);
   end.