program inf;
var f,g:text;
    v,su:array[0..6000000]of integer;
    n,i,j,pozi,pozj:longint;
    s,smax:int64;
begin
    assign(f,'ssm.in');  reset(f);
    assign(g,'ssm.out');  rewrite(g);
    readln(f,n);
    for i:=1 to n do
      begin
        read(f,v[i]);
        su[i]:=su[i-1]+v[i];
      end;

      for i:=1 to n-1 do
        for j:=i+1 to n do
          begin
             s:=su[j]-su[i-1];
             if s>smax then
                begin
                   smax:=s;
                   pozi:=i;
                   pozj:=j;
               end;
          end;
      writeln(g,smax,' ',pozi,' ',pozj);


    close(f);
    close(g);
end.