Вычислить значение выражения - Turbo Pascal (28973)

Формулировка задачи:

Здравствуйте, помогите написать программу на паскале , где

Решение задачи: «Вычислить значение выражения»

Листинг программы

function power(a, n: real): real;
begin
  power := exp(ln(a) * n);
end;
 
var
  g, x, y, a, w, t: real;
 
begin
  readln(a, x, w, t);
  g := 24.8 + x;
  y := (power(x, 5) * power((a * x), 1 / 3) + sqrt(abs(a + x))) / (4 * sqr(cos(a * x))) + sqr(g) + w * t;
  writeln(y);
end.

Объяснение кода листинга программы

В функции power вычисляется значение выражения exp(ln(a) * n) для переменной a и n. Функция exp используется для вычисления экспоненты, а функция ln - для натурального логарифма.
Переменная power содержит результат вычисления функции power.
В основной части программы считываются значения переменных a, x, w и t с помощью функции readln.
Переменная g вычисляется как 24.8 + x.
Переменная y вычисляется как (power(x, 5) power((a x), 1 / 3) + sqrt(abs(a + x))) / (4 sqr(cos(a x))) + sqr(g) + w t. Здесь power(x, 5) вычисляется как exp(5 ln(x)), а power((a x), 1 / 3) - как exp(1/3 ln(a * x)).
Результат вычисления переменной y записывается в переменную writeln.