Uses crt;

Var i, n: integer; min1, min2: longint;

       A: array[1..1000] of longint;

Begin

   clrscr;

   For i:=1 to n do readln(a[i]);

   min1:=a[1]; min2:=a[1];

   For i:=2 to n do

      Begin

         If a[i]<min1 then

            Begin min2:=min1; min1:=a[i]; End;

         If (a[i]>min1) and (a[i]<min2) then min2:=a[i];

      End;

   writeln('So nho nhi la: ', min2);

   readln

End.

uses crt;
var n,i,j,tg: integer;
    a: array[1..10000]of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do for j:=1+i to n do if a[i] > a[j] then begin
        tg:=a[i];
        a[i]:=a[j];
        a[j]:=tg;
    end;
    write(a[n-1]);
    readln
end.