program Exp;
uses
Math;
var
x, y, z, A: Double;
begin
A := 18 * Power (x, 2) * y * Power (x, 3) + Power (- 8 * Power (x, 2) * Power (y, 3) * Power (z), 2);
A := 3 / (2 * Power (x, 2) + 2 * x) + (2 * x - 1) / (Power (x, 2) - 1);
A := Power (y, 3) * Exp (1/3 * Ln (a * x));
end.
Объяснение:
так как функции вычисления кубического корня в Паскале не существует, то применяется такая формула: Exp (1/3 * Ln (a * x)), это в конце третьей формулы.
