n = 15108097
k = n Mod 10000
x = 2 - 1 / k
y = 0.5 + 1 / n + 0.03
T1 = (2 * y - x + Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)
MsgBox Atn(T1) * 180 / (4 * Atn(1))