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

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

Здравствуйте! Помогите пожалуйста решить задачу с формулой. Пользователь вводит числовые значения

. Вычислить и вывести

. Формула:

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

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

if(y*z=0)or(y*z=1)or(z*z-x-y<=0) then
 begin
  writeln('Q не определено');
  exit;
 end;
q:=z*sin(x)*sqrt(z*z-(x+y))/sqr(ln(abs(y*z)))+3.5*y*y;

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

В данном коде написано условие, которое проверяет, является ли выражение y*z равным нулю или единице, а также проверяет, является ли выражение z*z-x-y меньше или равно нулю. Если хотя бы одно из этих условий выполняется, то программа выводит сообщение Q не определено и завершает свою работу.
Если условие не выполняется, то программа продолжает работу и вычисляет значение переменной q.
Значение переменной q представляет собой сумму нескольких выражений: z*sin(x)*sqrt(z*z-(x+y)), sqrt(z*z-(x+y)), z*sin(x), sin(x), x, y, 3.5*y*y.
Для вычисления значения переменной q используется функция sqrt, которая вычисляет квадратный корень, функция sin, которая вычисляет синус, функция ln, которая вычисляет натуральный логарифм, функция abs, которая вычисляет абсолютное значение, и операторы умножения * и сложения +.
Значение переменной q может быть представлено в виде математической формулы: q = (z*sin(x)*sqrt(z*z-(x+y)))/sqrt(ln(abs(y*z))) + 3.5*y*y.