program trideni;
uses crt;

var cislo : array[1..20] of integer;
    vetsi,i,j,n,e : integer;


begin
clrscr;
  read (n);
  for i := 1 to n do

     read (cislo[i]);
  e := 0;
  vetsi := cislo[1];
  for j := 1 to (n - e) do
    begin
      if cislo[j] >= vetsi
        then
          begin
            vetsi := cislo[j];
            cislo[j] := cislo[j-e];
            cislo[j-e] := vetsi;
            e := e + 1;
          end;
    end;
    for i := 1 to n do
      write (cislo[i]);
  readkey;
end.