uses crt;
var i,j,n,tam:longint;
    a:array[1..100000] of longint;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);readln;
    for i:=1 to n-1 do
       for j:=i+1 to n do
         if a[i]<a[j] then
            begin
                tam:=a[i];
                a[i]:=a[j];
                a[j]:=tam;
            end;
    for i:=1 to n do write(a[i],' ');
readln;
end.

program bai_giai;
uses crt;
var A:array[1..1000] of integer;
    n,i,j,tg:integer;
begin
    clrscr;
    write('Nhap so luong phan tu: ');  readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': ');  readln(A[i]);
        end;
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if A[j]>A[i] then
                begin
                        tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
                end;
    write('Day sap xep giam dan la: ');
    for i:=1 to n do write(A[i],' ');
    readln;
end.