($a,$b,$c,$d,$e)=glob<>; $n=$a*($b-$c); $x=$d; $z=0; for(1..$n){ if($_%10==0){ if($e<=$x){ $x-=$e; } } $z+=$x; } print$z;