var f,g:text;
    i,x,n,min,max,aux,st,dr:longint;
    a:array[1..6000001] of longint;
begin
assign(f,'ssm.in');
reset(f);
assign(g,'ssm.out');
rewrite(g);
read(f,n);
max:=-maxlongint;
min:=0;
aux:=1;
for i:=1 to n do
        begin
        read(f,x);
        a[i]:=a[i-1]+x;
        if a[i]-min>max then
                begin
                dr:=i;
                st:=aux;
                max:=a[i]-min;
                end;
        if a[i]<min then
                begin
                aux:=i+1;
                min:=a[i];
                end;
        end;
write(g,max,' ',st,' ',dr);
close(f);
close(g);
end.