($n,$s,$w)=<>=~/\d+/g;
@a=<>=~/\d+/g;
($w)=splice@a,$w,1;
@a=sort{$b<=>$a}@a;
@b=map{50*$s+int(250*$s/(4+$_))}1..@a;

$i=$#b;
$c=1;
for(@a){
	while($i>=0 && $b[$i]+$_<=$b[0]+$w){
		--$i;
	}
	++$j;
	$c*=(@b-$i-$j)/$j;
}
print $c;