Program p2;
var i,n,j1,j2,max : longint;
    a,poz,c1,c2 : longint;
    bufi,bufa:array[0..1 shl 20] of char;
begin
    assign(input,'ssm.in'); reset(input);
    assign(output,'ssm.out'); rewrite(output);
    settextbuf(input,bufi); settextbuf(output,bufa);
    readln(n);
    read(a);
    max:=a; j1:=1; j2:=1; c1:=max; c2:=max;

    for i:=2 to n do begin
                     read(a);
                     if c1+a>=a then c2:=c1+a
                                else begin c2:=a; j1:=i; end;
                     if c2>max then begin max:=c2; j2:=i; poz:=j1; end;
                     c1:=c2;
                     end;
    write(max,' ',poz,' ',j2);
end.