// 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';
}
}