Найти значение функции, избежать аварийных ситуаций - Pascal

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

http://prntscr.com/jeso54 - задание Вот такая задачка. Само вычисление записал в виде данной строки:

z:=(exp(x*x)/x)+(sqrt(sqrt((ln(4*x)/sin(x)))));

Для некоторых значений, например 35 выводит "Не число". Попробовал решить это таким путем:

write('Введите x: ');
  read(x);
  while ((sqrt(((ln(4*x)/sin(x)))) < 0) or (((sqrt(sqrt((ln(4*x)/sin(x)))))) < 0)  or (x = 0)) do
    begin
      write('Введите x повторно: ');
      read(x);
    end;

Не могил бы вы, пожалуйста, сказать, как написать здесь область значений. Заранее спасибо.

Решение задачи: «Найти значение функции, избежать аварийных ситуаций»

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

exp(ln(((ln(4*x)/sin(x)))/3))

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

В данном коде реализуется вычисление значения экспоненты от натурального логарифма выражения ((ln(4*x)/sin(x)))/3. Список операций и переменных можно представить в следующем виде:

Задать значение переменной x
Вычислить натуральный логарифм от (4x) - ln(4x)
Вычислить синус от x - sin(x)
Вычислить косинус от x - cos(x)
Вычислить значение выражения ((ln(4*x)/sin(x)))/3
Вычислить экспоненту от этого значения - exp(value)
Вернуть полученное значение