Program p2;
var i,n,j1,j2,max : longint;
    a,poz,c1,c2 : longint;
    fi,fo : text;
begin
    assign(fi,'ssm.in'); reset(fi);
    assign(fo,'ssm.out'); rewrite(fo);
    readln(fi,n);
    read(fi,a);
    max:=a; j1:=1; j2:=1; c1:=max; c2:=max;

    for i:=2 to n do begin
                     read(fi,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(fo,max,' ',poz,' ',j2);
    close(fi); close(fo);
end.