в чем ошибка?

[gylayko]

вот програма
Uses Crt;
var x,y,z:real;
begin
x:=-10;
while (x<=-6) do
begin
x:=x+0.4;
y:=(sqrt(x+9)/x)-(1/x+6);
WriteLn('x=',x:5:2,'y=',y:5:2);
end;
ReadLn;
end.
но в рядке y:=(sqrt(x+9)/x)-(1/x+6); выдает ошибку 207 Invalid floating point operation, что не так? почему выдает такую ошибку?

[Step_UA]

корень из отрицательного числа не существует

[gylayko]

и как сделать, чтобы все нормально было?

[Alex11223]

Не извлекать корень из отрицательного числа.

Задание-то какое у вас? А программа, которая делает, чтобы всё нормально было еще не написана, можете стать первым.

[KobolD]

на отрезке (-бесконечность,9) ваша функция не существует, поэтому надо
x:=-9;