program alex;
var f:text;
    s:array[0..6000001]of longint;
    n,x,i,min,max,pozf,pozs,pozm:longint;
begin
assign(f,'ssm.in');reset(f);
readln(f,n);
s[0]:=0;
for i:=1 to n do
    begin
    read(f,x);
    s[i]:=s[i-1]+x;
    end;
close(f);
min:=s[0];
max:=0;
pozs:=0;
pozf:=0;
pozm:=0;
for i:=1 to n do
    begin
    if s[i]-min>max then begin
                         max:=s[i]-min;
                         pozs:=pozm+1;
                         pozf:=i;
                         end;
    if s[i]<min then begin
                     min:=s[i];
                     pozm:=i;
                     end;
    end;
assign(f,'ssm.out');rewrite(f);
writeln(f,max,' ',pozs,' ',pozf);
close(f);
end.