var sum,best,start,prim,n,final,i,x:longint;
begin
assign(input,'ssm.in');
assign(output,'ssm.out');
reset(input);
rewrite(output);
sum:=0;
best:=-maxlongint;read(n);
for i:=1 to n do
    begin
    read(x);
    if sum<0 then
       begin
       sum:=x;
       start:=i;
       end
       else sum:=sum+x;
    if sum>best then
       begin
       best:=sum;
       prim:=start;
       final:=i;
       end;
    end;

write(best,' ',prim,' ',final,' ');
close(input);
close(output);
end.