program oken;
uses crt;
var a: array [1..100] of longint;
    i,n,max,min,j,tam:longint;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('diem ban thu ',i,': '); readln(a[i]);
                end;
        write('diem: ');
        for i:=1 to n do
                write(a[i],' ');
        writeln;
        writeln('diem cua ban thu 3: ',a[3]);
        max:=a[1]; min:=a[1];
        for i:=2 to n do
                if a[i]>max then
                        max:=a[i]
                else
                        if a[i]<min then
                                min:=a[i]
                        else
                                if (a[i]=max) and (a[i]=min) then Max:=Min;
        writeln('Max: ',max);
        writeln('Min: ',min);
        write('sap xep mang theo kieu khong giam: ');
        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;
        writeln;
        for i:=1 to n do write(a[i],' ');
        write('sap xep mang theo kieu khong tang: ');
        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],' ');
        writeln;
        write('cac gia tri lon hon 10: ');
        for i:=1 to n do
                if a[i]>=10 then
                        write(a[i],' ');
        readln;
end.