program subsecventa;
type vector=array[1..6000000] of record
                          x,y,z:longint;end;
var a:vector;
    i,j,n,m,min,poz,p,q,fin:longint;
    f,g:text;
    s:longint;
begin
assign(f,'ssm.in');assign(g,'ssm.out');reset(f);rewrite(g);
readln(f,n);s:=0;
read(f,m);s:=m;min:=0;a[1].x:=1;a[1].y:=s;a[1].z:=min;poz:=1;
for i:=2 to n do begin
read(f,m);
s:=s+m;
if s<min then begin min:=s;poz:=i;end;
a[i].x:=poz;a[i].y:=s;a[i].z:=min;end;
p:=a[1].y;
q:=1;fin:=1;
for i:=2 to n do begin
if (a[i].y-a[i].z)>p then begin
                           p:=a[i].y-a[i].z;
                           q:=a[i].x;fin:=i;end
                           else if a[i].y-a[i].z=p then
                           if i-a[i].x<fin-q then
                            begin fin:=i;q:=a[i].x;end;end;
close(f);
write(g,p,' ',q+1,' ',fin);
close(g);
end.