Подскажите где тут ошибка в формуле

[Vanta11a]

var
  x, y: real;
  g: double;

begin
//  clrscr;
  writeln('Лабораторная работа 1');
  writeln('---------------------');
  write('Введите значение переменной x, x=');
  readln(x);
  write('Введите значение переменной y, y=');
  readln(y);
  writeln('(1 + cos(x + y)) = ', (1 + cos(x + y)));
  writeln('abs(exp(x) - 2 * y / (1 + sqr(x) * sqr(y))) = ', abs(exp(x) - 2 * y / (1 + sqr(x) * sqr(y))));
  writeln('exp(3 * ln(x)) = ', exp(3 * ln(x)));
  writeln('arctan(y / sqrt(1 - sqr(y))) = ', arctan(y / sqrt(1 - sqr(y))));  
  g := (1 + cos(x + y)) / (abs(exp(x) - 2 * y / (1 + sqr(x) * sqr(y)))) * exp(3 * ln(x)) + arctan(y / sqrt(1 - sqr(y))); 
  writeln('g= ', g);
  writeln('Для продолжения нажмите любую клавишу');
  readln();
end.

Лабораторная работа 1
---------------------
Введите значение переменной x, x=2
Введите значение переменной y, y=3
(1 + cos(x + y)) = 1.28366218546323
abs(exp(x) - 2 * y / (1 + sqr(x) * sqr(y))) = 7.22689393676849
exp(3 * ln(x)) = 8
arctan(y / sqrt(1 - sqr(y))) = NaN
g= NaN
Для продолжения нажмите любую клавишу

У вас квадратный корень из -8 получается, вот и NaN.

[Alexmur07]

uses crt;
var
x,y:real;
g:double;
 begin
 clrscr;
 writeln('Лабораторная работа 1');
 writeln('---------------------');
 write('Введите значение переменной x, x=');
 readln(x);
 write('Введите значение переменной y, y=');
 readln(y);
    if Abs(y)>=1 then
    write('Косяк с Y!')
     else
  begin
    g:=abs(exp(x)-2*y/(1+(x*x)*(y*y)));
    if g=0 then
    begin
    Writeln ('g=0, Деление на ноль невозможно');
     end
    else
       begin
        writeln('g:=abs(exp(x)-2*y/(1+(x*x)*(y*y)))=',g);
        readkey;
       end;
         begin
        g:=(1+cos(x+y))/g;
        writeln('g:=(1+cos(x+y))/g, g=',g);
        readkey;
        g:=g*(x*x*x);
        writeln('g:=g*(x*x*x)=',g);
        readkey;
        g:=g+arctan(y/sqrt(1-y*y));
 writeln('g=',g);
 writeln('Для продолжения нажмите любую клавишу');
   readkey;
 end;
 end;
 end.

[Alexmur07]

при условии что квадратный корень не будет минусовым, если Y >=1 , уже сделал... осталось подправить чтоб корректно выводилось:
объясните как сделать чтобы программа не закрывалась раньше времени а выводила
writeln('g=',g);
writeln('Для продолжения нажмите любую клавишу'); почему то не выводит, и как сделать чтобы после вывода сообщения Writeln ('g=0, Деление на ноль невозможно'); он просил нажать любую клавишу и завершал програму?

[ZX Spectrum-128]

Написать в конце программы readln. Будет ожидать нажатия enter

[Alexmur07]

а всё спасибо разобрался добил