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