// Source: https://usaco.guide/general/io

#include <bits/stdc++.h>
using namespace std;

long long lko(long long n, long long m){
	if(n%m==0 || m%n==0){
		return min(n, m);
	}
	if(n>m){
		return lko(n%m, m);
	}else{
		return lko(m%n, n);
	}
}

int main() {
	int n, k;
	cin>>n>>k;
	vector<int> a(n);
	for(int i=0;i<n;i++){
		cin>>a[i];
	}
	int bronz=n/2;
	int ezust=n/4;
	int arany=n/12;
	int versenyzok=0;
	bool b=true;
	bool x=true;
	bool z=true;
	for(int i=0;i<n;i++){
		if(a[i]>a[k-1]){
			versenyzok++;
		}
		if(versenyzok==arany && i>k && b){
			cout<<i<<'\n';
			b=false;
		}else if(versenyzok>=arany && i<k && b){
			cout<<0<<'\n';
			b=false;
		}
		if(versenyzok==ezust && i>k && x){
			cout<<i<<'\n';
			x=false;
		}else if(versenyzok>=ezust && i<k && x){
			cout<<0<<'\n';
			x=false;
		}if(versenyzok==bronz && i>k && z){
			cout<<i<<'\n';
			z=false;
			return 0;
		}else if(versenyzok>=bronz && i<k && z){
			cout<<0<<'\n';
			z=false;
			return 0;
		}
	}
	if(b){
		cout<<n<<'\n';
	}
	if(x){
		cout<<n<<'\n';
	}
	if(z){
		cout<<n<<'\n';
	}
}