Problem with equation in Programming

[DrD]

This seems to work:

Code:


EXPORT prueba1()
BEGIN
LOCAL d,ar,So,t,S;
LOCAL E,A,Tc;

A:=123;
d:=20;
t:=30;
S:=356;
E:=234;
ar:=98;
So:=342;

Tc:=solve("A=d*(15-t)*S*E-x+(((ar^2)*So^2)*S*E)/(24*x^2)","x");
MSGBOX(Tc);

END;