program inf;
var a,v:array[0..6000000] of longint;
    n,pj,pozi,pozj,pi,max,s,i:longint;
    f,g:text;
begin
    assign(f,'ssm.in'); reset (f);
    assign(g,'ssm.out'); rewrite (g);
    readln (f,n);
    max:=-maxlongint;
    pj:=1;
    for i:=1 to n do
      begin
         read (f,v[i]);
         s:=v[i]+a[i-1];
         if s>=v[i] then
             a[i]:=s
         else
           begin
              a[i]:=v[i];
              pi:=i;
           end;

      if max<=a[i] then
         begin
             max:=a[i];
             pozi:=pi;
             pozj:=pj;
         end;
       pj:=pj+1;

    end;

    if pozi=0 then
     write (g,max,' ',pozi+1,' ',pozj)
   else
       write (g,max,' ',pozi,' ',pozj);
   close(f);
   close(g);
end.