(*  area under curve for geometric distribution  *)
(*  for probability p and duration k  *)
p = .5;
k = 3;
CDF(GeometricDistribution(p), k-1)

  (*  manual calculation  *)
Sum(p * (1-p) ^ a, {a, 0, k-1})