$n=<>;@r=<>;
@p=1;
for(1..100){
	for$i(1..$n-1){
		$p[$i]=0;
		for(@r){
			if(/ $i /){
				$p[$i]+=(1-$p[$i])*$p[$`]*$'/100;
			}
		}
	}
}
print pop@p