Code statistics problem using the software Mathematica

1. Consider an experiment of tossing a coin, P(H) = p, N times and let X = # H's. Then X has Binomial distribution with P(X = k) = (N k )p^k(1-p)^(N - k), and mean value \[Mu] = EX = Np. Let p = 1/2, N = 10 and [f, i] = fraction of heads in i-th experiment, i =1,2,...,n.

(a) Simulate the experiment n times, consider the event A = {[f, i] | .4

(b) Display 3 samples of the experiment (i.e., 10 tosses) using {T, H}.