var
  mas: array [1..1000] of integer;
  k, i: integer;

 procedure SortMas(L,R:integer);
 var X,y,i,j:integer;
begin
 X:=mas[(L+R) div 2];
 i:=L;
 j:=R;
 while i<=j do
  begin
   while mas[i]<X do
    i:=i+1;
   while mas[j]>X do
    j:=j-1;
     if i<=j then
       begin
         y:=mas[i];
         mas[i]:=mas[j];
         mas[j]:=y;
         i:=i+1;
         j:=j-1;
       end;
  end;

  if L<j then
    SortMas(L,j);
  if i<R then
    SortMas(i,R);
end;


 begin
   AssignFile(input, 'input.txt');
   reset(input);
   read(input, k);
   AssignFile(output, 'output.txt');
   rewrite(output);
      for i:=1 to k do
        begin
          read(input, mas[i]);
        end;
        SortMas(1, k);
        for i:=1 to k do
          begin
            write(output, mas[i], ' ');
          end;
   CloseFile(input);
   CloseFile(output);
 end.