program Hello;
uses crt;
var n,i,j,tg:integer;
    a:array[1..10000] of integer;
begin
    clrscr;
    write('n= ');
    readln(n);
    for i:= 1 to n do
        readln(a[i]);
    for i:= 1 to n do
        for j:=1 to n-1 do
            if a[i]<a[j] then
                begin
                    tg:=a[i];
                    a[i]:=a[j];
                    a[j]:=tg;
                end;
    write('Max = ', a[n], ', Min = ', a[1]);
end.

program lon_nho;
uses crt;
var A:array[1..1000] of integer;
    n,i,max,min:integer;
begin
    clrscr;
    write('nhap n: ');  readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': ');   readln(A[i]);
        end;
    max:=A[1];  min:=A[1];
    for i:=1 to n do
        begin
            if A[i]>max then max:=A[i];
            if A[i]<min then min:=A[i];
        end;
    writeln('So lon nhat: ',max);
    writeln('So nho nhat: ',min);
    readln;
end.