// 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-1>k && b){
			cout<<i-1<<'\n';
			b=false;
		}else if(versenyzok>arany && i<k && b){
			cout<<0<<'\n';
			b=false;
		}
		if(versenyzok>ezust && i-1>k && x){
			cout<<i-1<<'\n';
			x=false;
		}else if(versenyzok>ezust && i<k && x){
			cout<<0<<'\n';
			x=false;
		}if(versenyzok>bronz && i-1>k && z){
			cout<<i-1<<'\n';
			z=false;
			return 0;
		}else if(versenyzok>bronz && i<k && z){
			cout<<0<<'\n';
			z=false;
			return 0;
		}
	}
}