Write a program to calculate a function?

Question

Pascal

Here is such a problem.
The calculation itself was written as this line:
z:=(exp(x*x)/x)+(sqn(4*x)/sin(x)))));
For some values, for example 35, displays "Not a number".
I tried to solve it this way:

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;

(Do not scold for a huge pile and govnokod).
What's wrong :(

Answer 1

Yes, in fact, everything is wrong in the second term, and the scope of the function is incorrectly set.