Arithmetic expression: Y= NaN

[Елена909]

Здравствуйте.
Помогите решить следующую проблему:
После многократного запуска данной программы
Код:

program 2;
CONST		{исходные данные вводим как константы}
     x=3.4;
     j=1.65;
     a=0.5;
VAR
   ch,zn,y,d :real;	{числитель, знаменатель дроби, результат }
BEGIN
  ch:=ln(sqr(x+1))+1.5*exp(5*ln(x))+exp(1/4)*ln(a+0.6*exp(5*ln(10)))*1.35*exp(-8*ln(10));
  zn:=x*x+1.25*exp(-7*ln(10))*sqr(sin(j*j))+exp(1/3)*ln(a+0.6);
  d:=ch/zn;
  y:=arctan(ABS(d)/sqrt(1-d*d));
  WriteLn('Arithmetic expression: Y=',y:8:4);{вывод результатов на экран}
END.

Выдает ошибку
Arithmetic expression: Y= NaN

[type_Oleg]

Сообщение от Елена909

...
После многократного запуска данной программы ...

Такую программу даже однократно не запустить

 program 2;

Не может быть в Паскале такого идентификатора - 2, ни для имени программы ни для чего.
Но если например

 program pr2;

и убрать лишний пробел в e xp(1/4), то откомпилируется и запустится. Но выдаст сообщение об ошибке. Это у меня , в Geany ( компилятор FPC), у вас может быть и NaN.
См - NaN
Так что проверяйте свои логарифмы и корни, скорее всего корень или в логарифм отрицательного числа.

PS Нашел.
У вас d больше 1. Примерно 58. Проверьте сами, измените тут

 d:=ch/zn;
// y:=arctan(ABS(d)/sqrt(1-d*d));  
 Writeln(d);
// WriteLn('Arithmetic expression: Y=',y:8:4);{вывод результатов на экран}
 END.

И получается под корнем отрицательное число, вот тут -

y:=arctan(ABS(d)/sqrt(1-d*d));

[Somebody]

Сообщение от type_Oleg

Не может быть в Паскале такого идентификатора - 2, ни для имени программы ни для чего.

"Ни для чего" - это слишком. Идентификатором метки быть может.