program nume;
var v:array of longint;
    f,g:text;
    n,nr,i,poz,poz1,pozmax,max:longint;
    bufin,bufout:array[1..1 shl 17]of byte;
begin
    assign(f,'ssm.in');
    reset(f);
    assign(g,'ssm.out');
    rewrite(g);
    settextbuf(f,bufin);
    settextbuf(g,bufout);
    readln(f,n);
    setlength(v,n+1);
    poz:=1;
    poz1:=1;
    pozmax:=1;
    read(f,v[1]);
    max:=v[1];
    for i:=2 to n do
      begin
          read(f,nr);
          if nr+v[i-1]>nr then
                          v[i]:=v[i-1]+nr
                          else
                          begin
                              v[i]:=nr;
                              poz:=i;
                          end;
          if v[i]>max then
            begin
                max:=v[i];
                poz1:=poz;
                pozmax:=i;
            end;
      end;
      writeln(g,max,' ',poz1,' ',pozmax);
close(f);
close(g);
end.