uses crt;

var a: array[1..1000000] of longint;

i,n,max,max2,min: longint;

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 min>a[i] then min:=a[i];

end;

max2:=min;

For i:=1 to n do

if (a[i]>max2) and (a[i]<>max) then max2:=a[i];

writeln ('So lon thu 2 la: ',max2);

readln;

end.

uses crt;
var n,i,j,tg: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(a[i]);
    for i:=1 to n do
        for j:=1 to i do
            if a[i]<a[j] then begin
                tg:=a[i];
                a[i]:=a[j];
                a[j]:=tg;
            end;
    write('Phan tu lon thu 2 la: ',a[n-1]);
    readln
end.