program subsecventa_1;
var a:array[0..7000000] of longint;
   b1,b2:array[1..1 shl 16] of char;
    n,best,min,l,r,i,s:longint;
begin
assign(input,'ssm.in'); reset(input); settextbuf(input,b1);
assign(output,'ssm.out'); rewrite(output);settextbuf(output,b2);
readln(n);
for i:=1 to n do read(a[i]);
best:=-1 shl 30;  min:=0;
s:=0;    l:=1; r:=1;
for i:=1 to n do  begin
   if s<min then begin min:=s; l:=i; end;
   if s+a[i]-min>best then begin
                         best:=s+a[i]-min;
                         r:=i;
                         end;
   s:=s+a[i];
   end;
write(best,' ',l,' ',r);
close(output);
end.