program ssm;
var f,g:text;
    i,n,start,fin,aux,asa,sum,bestsum,s:longint;
    bufin,bufout:array[1..500000] of  byte;
begin
        assign(f,'ssm.in'); reset(f);
        assign(g,'ssm.out'); rewrite(g);
        settextbuf(f,bufin);
        settextbuf(f,bufout);
        readln(f,n);
        sum:=0;  bestsum:=-maxlongint;
        for i:=1 to n do
                begin
                  read(f,s);
                  if sum < 0 then
                        begin
                          sum :=s;
                          asa:=i;
                        end
                          else
                        begin
                          sum:=sum+s;
                        end;
                  if bestsum < sum then
                        begin
                          bestsum:=sum;
                          start:=asa;
                          fin:=i;
                        end;
                end;
        writeln(g,bestsum,' ',start,' ',fin);
        close(f); close(g);
end.