type
  arrayType = array[1..n] of integer;

var
  arr : arrayType;
  i : integer;
  max, max2 : integer;

begin
  for i := 1 to n do readln(arr[i]);
  max := arr[1];

  for i := 1 to n do
  begin
   if arr[i] > max then max := arr[i];
  end;

  max2 := arr[1];
  if max = max2 then max2 := arr[2];

  for i := 1 to n do
  begin
   if (arr[i] > max2) and (not (arr[i] = max)) then max2 := arr[i];
  end;

  writeln(max2);
end.