var f,g:text;
    i,n,max,aux,st,dr,sum,x:longint;
begin
assign(f,'ssm.in');
reset(f);
assign(g,'ssm.out');
rewrite(g);
read(f,n);
max:=-maxlongint;
aux:=1;
for i:=1 to n do
        begin
        read(f,x);
        if sum<0 then
                begin
                sum:=x;
                aux:=i;
                end
        else sum:=sum+x;

        if sum>max then
                begin
                st:=aux;
                dr:=i;
                max:=sum;
                end;

        end;
write(g,max,' ',st,' ',dr);
close(f);
close(g);
end.