n = 15108097 k = n Mod 10000 T = n Mod 100 c = 2.99792458 * 10 ^ 8 G = 6.67408 * 10 ^ (-11) M = k * 10 ^ (-3) Rs = 2 * G * M / c ^ 2 MsgBox Rs