Вычисление суммы дает результат NaN - PascalABC.NET

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

Написать программу и составить блок-схему для вычисления таблицы значений функции если аргумент x меняется от 1 до 3 с шагом 0.15.

                    Листинг программы
                
 
                        
                          
                    
Var z,x,sum:real;
begin 
x:=1;  
while x<=3 do begin 
Z:=(sin(sqrt(x-3)))/(3*x+sqr(x)); 
x:=x+0.15; 
writeln('Сумма = ',z:5:6)
end; 
writeln(x);
end.

Выдает NaN. Как исправить? Окно вывода

                    Листинг программы
                
 
                        
                          
                    
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
Сумма =   NaN
3.1

Решение задачи: «Вычисление суммы дает результат NaN»

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

Var z,x,sum:real;
begin 
x:=1;  
while x<=3 do
 begin 
  Z:=(sin(sqrt(3-x)))/(3*x+sqr(x)); 
  writeln('x=',x:4:2,' z=',z:5:3);
  x:=x+0.15; 
 end; 
end.

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

Объявляются три переменные: z, x и sum типа real.
Переменная x инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока значение x не станет больше или равным 3.
Внутри цикла вычисляется значение переменной Z по формуле: Z = (sin(sqrt(3-x)))/(3*x+sqr(x)).
Выводится на экран значение переменных x и z с указанным шагом: writeln('x=',x:4:2,' z=',z:5:3).
Значение переменной x увеличивается на 0.15 после каждой итерации цикла.
По завершении цикла выполнение программы завершается.