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.
