program project2;

const MAX_BR_EL = 100;

type niz = array[1..MAX_BR_EL] of integer;

var
n,i,b:integer;
a_float:real;
a:niz;

function sredinaDesno(a: niz; b,i:integer): real;
var brojac:integer;
asr,brojacR:real;
begin
brojac:=0;
asr:=0.0;
while(i<n) AND (brojac<b)do
begin
  asr:=asr + a[i+1];
  brojac:=brojac+1;
  i:=i+1;
end;
brojacR:=brojac;
sredinaDesno:= asr/brojacR;
end;

function sredinaLevo(a: niz; b,i:integer): real;
var brojac:integer;
asr,brojacR:real;
begin
brojac:=0;
asr:=0.0;
while(i>1) AND (brojac<b)do
begin
  asr:=asr + a[i-1];
  brojac:=brojac+1;
  i:=i-1;
end;
brojacR:=brojac;
sredinaLevo:= asr/brojacR;
end;

begin
 writeln('Unesi broj elemenata niza:');
 readln(n);

 writeln('Unesi broj b:');
 readln(b);


 IF (n > MAX_BR_EL) OR (n < 0) then
 exit;

 writeln('Unesi elemente niza:');
 for i:=1 to n do
 readln(a[i]);

 for i:=1 to n do
 begin
 a_float:=a[i];
 if(i=1)then
  if(a_float > sredinaDesno(a,b,i)) then
  writeln('Index: ',i);
 if(i=n)then
  if(a_float > sredinaLevo(a,b,i)) then
  writeln('Index: ',i);
 if ((i>1) AND (i<n)) then
  if(a_float > sredinaLevo(a,b,i)) AND (a_float > sredinaDesno(a,b,i)) then
  writeln('Index: ',i);
 end;
end.