<< Statistics`DiscreteDistributions`
<< Graphics`Graphics`

n = 20;
p = 0.8;
bin = BinomialDistribution[n, p];
f = PDF[bin, x];
distr = Table[{f, x}, {x, 0, n}];
Mean[bin]
StandardDeviation[bin]
BarChart[distr]

cf = CDF[bin, x];
Plot[cf, {x, 0, n}]

Mean[bin]
StandardDeviation[bin]