$N=<>;
$s+=$_ for@x=glob<>;
$t+=($_-$s/$N)**2for@x;
$u=sqrt$t/$N;
print+($x[<>-1]-$s/$N)*10/$u+50|0,$/