uses crt;
var a:array[1..1000000] of int64;
      n,i,max,mx:longint;
begin
      clrscr;
      readln(n);
      for i:=1 to n do read(a[i]);
      max:=a[1];mx:=a[1];
      for i:=2 to n do
            begin
                  if a[i] > max then max:=a[i];
                  if (mx < max) and (a[i] > mx) and (a[i] < max) then mx:=a[i];
            end;
      writeln(max+mx);
      readln
end.

uses crt;
var i,n,vt,vt1:longint; a:array[1..10000000]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do read(a[i]); readln;
   for i:=1 to n do 
      if a[i]>a[vt] then vt:=i;
   for i:=1 to n do 
      if (i<>vt)and(a[i]>a[vt1]) then vt1:=i; 
   writeln('Tong 2 phan tu lon nhat trong mang: ',a[vt]+a[vt1]);
readln
end.