Найти ошибку в вычислении по формуле - Pascal ABC

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

{Программа вычисления}
Var
z,x,y:real;
{Выполняемая часть прграммы}
Begin
writeln('Введите x,y');
read(x);
z:=(5*(exp(2*ln(x)))*(exp(1/2*ln(exp(3*ln(cos(exp(2*ln(x))))*(exp(2*ln(y)))))))+exp(-1*ln(sin(x*cos(x)/cos(x*cos(x))))))/exp(x+1)*exp(y+1)+1;
{Вывод результатов}
writeln('Z=',Z:5:3,'x=':5,x:2:1,'y=':5,y:5:2);
end.

при вводе любых х и у выдает вот что: Введите x,y 20 30 Z= NaN x=20.0 y= 0.00 вот оригинал формулы

Решение задачи: «Найти ошибку в вычислении по формуле»

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

if sin(x*cos(x))=0 then writeln('z не определено')
else
 begin
  t:=sqr(cos(x*x-y*y))*cos(x*x-y*y)+cos(x*cos(x))/sin(x*cos(x));
  if t<0 then writeln('z не определено')
  else
   begin
    z:=5*x*x*sqrt(t)/(exp(x+1)*exp(y+1)+1);
    writeln('z=',z:0:3);
   end;
 end;

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

В начале кода объявлены две переменные: x и y.
Затем выполняется вычисление выражения xx-yy.
Далее вычисляется значение выражения xcos(xx-y*y).
Вычисляется значение выражения cos(x*cos(x)).
Затем вычисляется значение выражения sin(x*cos(x)).
Если sin(x*cos(x)) равно нулю, то выводится сообщение z не определено.
Если sin(x*cos(x)) не равно нулю, то вычисляется значение выражения t.
Если значение t меньше нуля, то выводится сообщение z не определено.
Если значение t больше нуля, то вычисляется значение выражения z.
Значение z записывается в виде десятичной дроби с точностью до трех знаков после запятой.
Выводится сообщение z=, за которым следует значение переменной z.