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

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

Надо сделать срочно программу на pascal по решению уравнения . Вот данные и ответ который должен получится При x = 2,444, y = 0,869*10^-2, z = –0,13*10^3, Ответ h = –0,49871.

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

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

// если нет таких функций
function tan(x: real): real;
begin
  tan := sin(x) / cos(x);
end;
 
function power(x, a: real): real;
begin
  power := exp(a * ln(x));
end;
 
var
  q, x, y, z, h: real;
 
begin
  readln(x, y, z);
  q := y - x;
  h := (power(x, y + 1) + exp(y - 1)) / (1 + x * abs(y - tan(z))) * (1 + abs(q)) + sqr(q) / 2 - (sqr(q) * sqr(q)) / 3;
  writeln(h);
end.

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

Импортируются две функции: sin, cos, exp, ln, abs и sqr.
Определены пять переменных: q, x, y, z и h.
Значения переменных x, y и z считываются с помощью функции readln.
Переменная q вычисляется как разность между y и x.
Переменная h вычисляется как сумма (power(x, y + 1) + exp(y - 1)) / (1 + x abs(y - tan(z))) (1 + abs(q)) + sqr(q) / 2 - (sqr(q) * sqr(q)) / 3.
Значение переменной h выводится на экран с помощью функции writeln.