<>;
@vw=<>;
$V=pop@vw;
for(@vw){
	($v,$w)=split;
	for(reverse 0..@d){
		$w?$d[$_+$w]+=$-=$d[$_]+$v-$d[$_+$w]:0
	}
}
for(@d){
	if($_==$V){
		$a||=$i
	}
	if($_>$V){
		$b||=$i-1
	}
	++$i
}
print$a,$/,$b||inf