program unu;
var     f,g:text;
        n,i,j,aux:integer;
        x:array[1..100]of longint;
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[j]<x[i] 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.