program xmz;
var
f1,f2:text;
p,z,x,y:array[1..1000]of longint;
a,b,n,m,nn:longint;
procedure px(l,r:longint);
var i,j,tmp,mid:longint;
begin
i:=l;j:=r;mid:=x[(l+r) shr 1];
repeat
while x[i]>mid do inc(i);
while mid>x[j] do dec(j);
if i<=j then
begin
tmp:=x[i];
x[i]:=x[j];
x[j]:=tmp;
tmp:=y[i];
y[i]:=y[j];
y[j]:=tmp;
inc(i);dec(j);
end;
until i>j;
if l<j then px(l,j);
if i<r then px(i,r);
end;
begin
 assign(f1,'mark.in');assign(f2,'mark.out');
 reset(f1);rewrite(f2);
 read(f1,n,m);
 for a:=1 to n do
  begin
  read(f1,x[a]);
  z[a]:=x[a];
  y[a]:=a;
  end;
 px(1,n);
 for a:=1 to n do
  p[y[a]]:=a;
 for a:=1 to n do
  for b:=1 to n do
   if (z[a]=z[b])and(p[a]<p[b]) then p[b]:=p[a];

 read(f1,nn);
 for a:=1 to m do
  if (p[nn]>=(a-1)*(n div m)+1)and(p[nn]<=a*(n div m)) then
   begin
    write(f2,a);
    break;
   end;

 close(f1);close(f2);
end.