program ssm;
var n,i,rez,x,k,i1,i2:longint;
    s,min:int64;
    b:array[1..1 shl 17] of char;
begin
assign(input,'ssm.in'); settextbuf(input,b); reset(input);
assign(output,'ssm.out'); rewrite(output);
readln(n);
min:=2147483647;
rez:=-2147483648;
for i:=1 to n do begin
                 read(x);
                 s:=s+x;
                 if s-min>rez then begin rez:=s-min; i1:=k+1; i2:=i; end;
                 if s<min then begin min:=s; k:=i; end;
                 end;
write(rez,' ',i1,' ',i2);
close(output);
end.