program secventa;
var f:text;
    n,k,i,e,v,ss:1..500000;
    min,max:longint;
    t:array[1..5000] of integer;
begin
assign(f,'secventa.in');reset(f);
readln(f,n,k);
for i:=1 to k-1 do begin
    read(f,t[i]);
end;
max:=-30000;
ss:=k-1;
while not eof(F) do begin
    inc(ss);
    read(f,t[k]);
    min:=30000;
    for i:=1 to k do
        if t[i]<min then
           min:=t[i];
    if min>max then
       e:=ss-k+1;
       v:=ss;
       max:=min;
    for i:=2 to k do
       t[i-1]:=t[i];
end;
close(F);
assign(f,'secventa.out');rewrite(f);
write(f,e,' ',v,' ',max);
close(f);
end.