VAR s:array[1..6000000] of longint;
    n,inceput,inceput_cur,sfarsit,suma_max,suma_cur,i:longint;
    f,g:text;
begin
assign(f,'ssm.in'); reset(f);
assign(g,'ssm.out'); rewrite(g);

readln(f,n);
for i:=1 to n do read(f,s[i]);

suma_max:=s[1];
suma_cur:=suma_max;
inceput:=1;
sfarsit:=1;
inceput_cur:=1;

for i:=2 to n do
 begin
 if suma_cur<0 then begin suma_cur:=s[i]; inceput_cur:=i; end else
    suma_cur:=suma_cur+s[i];
 if suma_max<suma_cur then begin
                           suma_max:=suma_cur;
                           inceput:=inceput_cur;
                           sfarsit:=i;
                          end ;

         end;
  write(g,suma_max,' ',inceput,' ',sfarsit);
  close(f); close(g); end.