f = 5/6;

b = 
      Sum[f^(n - 1), {n, 1, 100}] // N

t = Sum[n f^(n - 1), {n, 1, 100}] // N

Print["The mean number of times you get to play is ", 
      t/b]