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

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

Написать это выражение на FP. Надо разбивать выражение на отдельные переменные и записывать его по частям.

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

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

uses Math;
const x=35;
      y=0.95;
      z=-1.05;
var
  a,b:real;
begin
  a:=(3+exp(y-1))/(1+x*x*abs(y-tan(z)));
  b:=-log10(y);
  if b<0 then b:=-(-b**(1/3)) else b:=b**(1/3);//отрицательные числа в дробные степени не возводятся, но кубический корень может быть отрицательным из отрицательного числа
  b:=b-5*y-abs(z*x);//sqrt(z*z*x*x)=abs(z*x)
  writeln('a=',a:0:6);
  writeln('b=',b:0:6);
end.

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

Используется единица измерения Math.
Задаются константы: x=35, y=0.95, z=-1.05.
Создаются переменные a и b типа real.
Переменная a вычисляется как (3+exp(y-1))/(1+xxabs(y-tan(z))).
Переменная b вычисляется как -log10(y).
Если b отрицательное, то b берется как -(-b)**(1/3).
b вычисляется как b**(1/3).
b вычисляется как b-5y-abs(zx).
Выводится значение переменной a с точностью до 6 знаков после запятой.
Выводится значение переменной b с точностью до 6 знаков после запятой. Примечание: кубический корень из отрицательного числа в данном коде получается как значение типа real, что может быть не совсем корректно с точки зрения математической точности.