Find cumulative probability for geometric (#857)

Find cumulative probability for geometric (#857)

Use P(X≤r)=1−(1−p)rP(X \le r) = 1 - (1-p)^r.