n = 15108097
k = n Mod 10000
t = n Mod 100
a = 2 * t
a = k
R = Sqr(1 - (1 - 1 / a) ^ 2)
R = R ^ (-1)
MsgBox R