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

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

Доброго всем времени суток. Нужно составить написать программу решения задач на языке Паскаль. Даны x, y, z. Вычислить a, b, если:

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

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

function Power(x, y: real): real;
begin
  Power := exp(ln(x) * y);
end;
 
var
  x, y, z, a, b: real;
 
begin
  readln(x, y, z);
  a := (sqrt(abs(x - 1)) - power(abs(y), 1 / 3)) / (1 + x * x + y * y * y);
  b := x * (arctan((z) + exp(-(x + 3))));
  writeln(a, ' ', b);
end.

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

Объявление функции:
- Название функции: Power
- Параметры функции: x, y с типом данных real
- Выражение функции: Power := exp(ln(x) * y)
Объявление переменных:
- Названия переменных: x, y, z, a, b
- Тип данных: real
Основная часть программы:
- Ввод значений переменных x, y, z
- Вычисление значения выражений:
  - a := (sqrt(abs(x - 1)) - power(abs(y), 1 / 3)) / (1 + x * x + y * y * y)
  - b := x * (arctan((z) + exp(-(x + 3)))
- Вывод результатов вычислений переменных a и b через пробел.