Introduction to Probability with Mathematica