program secventa;
var n,k,min,i,nr,a:longint;
    v:array[0..500002] of integer;
procedure citire;
begin
     assign(input,'secventa.in');
     reset(input);
     readln(input,n,k);
     i:=0;
     v[0]:=-maxlongint;
     nr:=1;
end;
begin
citire;
while i<=n-k do begin
      inc(i);read(input,a);
      if a>=v[0] then begin nr:=i;v[0]:=a;end
      else v[i-nr]:=a;
      end;
close(input);
assign(output,'secventa.out');
rewrite(output);
write(output,nr,' ',n,' ',v[0]);
close(output);
end.