program quicksort;
type vector=array[1..100] of integer;
var i,n,k:integer;
    a:vector;
    f:text;

procedure poz(li,ls:integer;var k:integer; var a:vector);
var i,j,c,i1,j1:integer;
begin
i1:=0;
j1:=-1;
i:=li;
j:=ls;
while (i<j) do
   begin if (a[i]>a[j]) then begin c:=a[j];
                                   a[j]:=a[i];
                                   a[i]:=c;
                                   c:=i1;
                                   i1:=-j1;
                                   j1:=-c;
                             end;
         i:=i+i1;
         j:=j+j1;
   end;
k:=i;
end;

procedure quick(li,ls:integer);
begin
if (li<ls) then begin poz(li,ls,k,a);
                      quick(li,k-1);
                      quick(k+1,ls);
                end;
end;

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