Calculate geometric probability (#855)

Calculate geometric probability (#855)

Use P(X=r)=(1−p)r−1pP(X=r) = (1-p)^{r-1}p for r=1,2,3,…r=1,2,3,\dots.