Составить программу вычисления функции?

Вот такая задачка.
Само вычисление записал в виде данной строки:
z:=(exp(x*x)/x)+(sqn(4*x)/sin(x)))));
Для некоторых значений, например 35 выводит "Не число".

Попробовал решить это таким путем:

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

(Не ругайте за огромное нагромождение и говнокод).
Что не так :(