var ic, sf, pc, suma, max, i,n,x:longint;
f:text;
begin
assign(f,'ssm.in');reset(f);
read(f,n);
read(f,x);
suma:=x;
max:=x;
ic:=1; sf:=1; pc:=1;
for i:=2 to n do
    begin
    read(f,x);
    if suma>0 then suma:=suma+x
       else
           begin
           suma:=x;
           pc:=i;
           end;
    if suma>max then
       begin
       ic:=pc;
       sf:=i;
       max:=suma;
       end;
    end;
close(f);
assign(f,'ssm.out');rewrite(f);
writeln(f,max,ic,sf);
close(f);
end.