var
n,i,j,k,len,ma,ans:longint;
a:array[1..10000]of longint;
function max(a,b:longint):longint;
begin
if(a>b)then
exit(a);
exit(b);
end;
begin
readln(n);ans:=-2147483640;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
for j:=1 to n do
for k:=1 to n do
if(i=j)or(j=k)or(i=k)then
continue else
begin
len:=a[i]+a[j]+a[k];
ma:=max(a[i],max(a[j],a[k]));
if(ma>=len-ma)then continue;
ans:=max(ans,len);
end;
end;
writeln(ans);
end.
n,i,j,k,len,ma,ans:longint;
a:array[1..10000]of longint;
function max(a,b:longint):longint;
begin
if(a>b)then
exit(a);
exit(b);
end;
begin
readln(n);ans:=-2147483640;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
for j:=1 to n do
for k:=1 to n do
if(i=j)or(j=k)or(i=k)then
continue else
begin
len:=a[i]+a[j]+a[k];
ma:=max(a[i],max(a[j],a[k]));
if(ma>=len-ma)then continue;
ans:=max(ans,len);
end;
end;
writeln(ans);
end.