var fi,fo:text;
    i,n,k,max,j,pozi,pozf,su:longint;
    vl,sdr:array[0..50001]of longint;
begin
  assign(fi,'secv2.in'); reset(fi);
  assign(fo,'secv2.out'); rewrite(fo);
  read(fi,n,k);
  for i:=1 to n do
    read(fi,vl[i]);
  max:=0;
  for i:=n downto 1 do
    begin
      if sdr[i+1]>=0 then sdr[i]:=sdr[i+1]+vl[i]
                     else sdr[i]:=vl[i];
      if sdr[i]>max then max:=sdr[i];
    end;
  for i:=1 to n-k do
    if sdr[i]=max then
      begin
        su:=0;
        for j:=i to n do
          begin
            su:=su+vl[j];
            if su=max then
              begin
                pozi:=i;
                pozf:=j;
              end;
          end;
      end;
  write(fo,pozi,' ',pozf,' ',max);
  close(fi);
  close(fo);
end.