Число NaN - Pascal ABC

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

Немного не догоняю: При вводе -1 получается ответ NaN, можно как-нибудь исправить? или что-нибудь сделать?

c:=1.7*1.7*1.7;
b:=2.4;
c:=1.7;
a:=(3.5*b)/(b+c);
readln(x);
y:=a+b/x;
y:=sqrt(y);
writeln(y);

Может можно сделать. при ошибки высчитки. сообщение вывести какое-нибудь?

Решение задачи: «Число NaN»

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

var a,b,c,x,y:real;
begin
c:=1.7*1.7*1.7;
b:=2.4;
c:=1.7;
a:=(3.5*b)/(b+c);
write('Введите х=');
readln(x);
if x=0 then
 begin
  writeln('Деление на 0');
  exit
 end;
y:=a+b/x;
if y<0 then
 begin
  writeln('Корень из отрицательного числа');
  exit;
 end;
y:=sqrt(y);
writeln(y);
end.

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

Объявляются переменные a, b, c, x, y типа real.
Переменная c вычисляется как 1.71.71.7.
Переменная b вычисляется как 2.4.
Переменная c вычисляется как 1.7.
Переменная a вычисляется как (3.5*b)/(b+c).
Пользователю предлагается ввести значение x.
Если x равно 0, то выводится сообщение Деление на 0 и программа завершается.
Переменная y вычисляется как a+b/x.
Если y меньше нуля, то выводится сообщение Корень из отрицательного числа и программа завершается.
Переменная y вычисляется как квадратный корень из y.
Выводится значение y.