var a: array[1..10000000] of longint; i,n,z,temp: longint;
begin
    write('Nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(a[i]);
    end;
    for i:=n downto 2 do
        for z:=1 to i-1 do
            if (a[z]<a[z+1]) then
            begin
                temp:=a[z];
                a[z]:=a[z+1];
                a[z+1]:=temp;
            end;
    
    write('Mang sau khi da duoc xep tang dan la: ');
    for i:=1 to n-1 do
        write(a[i],', ');
    write(a[n],'. ');
    write('Mang sau khi da duoc xep giam dan la: ');
    for i:=n downto 2 do
        write(a[i],', ');
    write(a[1],'. ');
    write('Gia tri lon nhat trong mang la: ',a[1]);
    readln
end.