// 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;
	bool otp=true;
	for(int i=0;i<n;i++){
		if(a[i]>a[k-1]){
			versenyzok++;
		}
	//	cout<<"It vannak a versenyzok:"<<' '<<versenyzok<<'\n';
		if(versenyzok==arany && i+1>k && b){
			cout<<i<<'\n';
			b=false;
		//	cout<<"Itt vagyok a 1esban"<<'\n';
	//		otp=false;
		}else if(versenyzok>=arany && i<k && b){
			cout<<0<<'\n';
	//		otp=false;
			b=false;
	//		cout<<"Itt vagyok a 2esban"<<'\n';
		}
		else if(versenyzok==ezust && i+1>k && x){
			cout<<i<<'\n';
			x=false;
		//	cout<<"Itt vagyok a 3masban"<<'\n';
	//		otp=false;
		}else if(versenyzok==ezust && i<k && x){
			cout<<0<<'\n';
			x=false;
		//	cout<<"Itt vagyok a 4esban"<<'\n';
	//		otp=false;
		}else if(versenyzok==bronz && i+1>k && z){
			cout<<i<<'\n';
			z=false;
		//	cout<<"Itt vagyok a 5osban"<<'\n';
			return 0;
	//		otp=false;
		}else if(versenyzok>=bronz && i<k && z){
			cout<<0<<'\n';
			z=false;
		//	cout<<"Itt vagyok a 6osban"<<'\n';
			return 0;
		}
	//	otp=true;
	}
	if(b){
		cout<<n<<'\n'<<0<<'\n'<<0<<'\n';
	}
	else if(x){
		cout<<n<<'\n'<<0<<'\n';
	}
	else if(z){
		cout<<n<<'\n';
	}
}