Решить этот пример в паскале

Question

Решить этот пример в паскале

---

Answer 1

Var
X,A:real;
Begin
Write('X = ');ReadLn(X);
Write('A = ');ReadLn(A);
WriteLn(X/(6.7*A)+(sqrt(abs(5*sqrt(X*X*X)/A))/A*A));
End.