n = 15108097
k = n Mod 10000
g = 10
v0 = k
h = k / 7
D = k
x = D
a = g * x ^ 2 / (2 * v0 ^ 2)
b = -x
c = a + h
G1 = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 / a
G2 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 / a
A1 = Atn(G1)
A2 = Atn(G2)
MsgBox A1
MsgBox A2
pi = 4 * Atn(1)
R = 180 / pi
A1d = A1 * R
A2d = A2 * R
MsgBox A1d
MsgBox A2d