{ll n,m;double x[101010],a,b;rd(n,x(n),m--);a=sum(x(n))/n;rep(i,n)b+=pow(x[i]-a,2);n=b==0?50:(x[m]-a)*10/sqrt(b/n)+50;wt(n);}