Uses Crt;

Var i, N, Max, Min: Integer;

      M: Array[1..10000] Of Integer;

Begin

      Readln(N);

      For i:= 1 To N Do

      Read(M[i]);

      Readln;

      Max:= M[1];

      Min:= M[1];

      For i:= 2 To N Do Begin

            If M[i] > Max Then Max:= M[i];

            If M[i] < Min Then Min:= M[i];

      End;

      Writeln('So lon nhat: ', Max);

      Writeln('So nho nhat: ', Min);

      Readln;

End.

`C_1`

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.

`C_2`

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.

`@Pô`