var n,s,max,x,y,p,i:longint;
    f,g:text;
begin
assign (f,'ssm.in');
assign (g,'ssm.out');
reset (f);
rewrite (g);

read (f,n);
x:=1;
s:=0;
max:=-maxint;
for i:=1 to n do
    begin
     read (f,p);
     s:=s+p;
     if s<0 then
        begin
        s:=0;
        x:=i+1;
        end;
     if s>max then
        begin
         max:=s;
         y:=i;
        end;
    end;
write (g,max,' ',x,' ',y);
close (f);
close (g);
end.