задача по паскалю

[rustik24]

Не могу найти ошибку! Когда вожу 0 или отрицательное число он выводит y NO


var x,y:real;
begin
jreadln(x);
if (x*x*x-100>=0) and (x>0) then
begin
y:=sqrt(ln(x*x*x-100));
writeln('y=',y:10:3);
end
else
writeln ('y no');
readln;
end.

[Hacker19_90]

А что он по вашему должен выводить?
1) Вводите 0
0 в кубе 0 - 100 = -100
-100 больше равно 0
НЕТ!
Значит прыгаем на ветку else
2) вводите отрицательное число
Отрицательное в кубе будет отрицательным
+ -100 полюбому отрицательное
отрицательное больше равно 0 НЕТ!
значит прыгаем на ветку else
В чём проблемы?

[Poma][a]

Когда вожу 0 или отрицательное число он выводит y NO

ну а что ты хотел?
если 0*0*0 -100 >= 0 И x> 0
0*0*0 -100 = -100 => выводим 'y no'
если -1 * -1 * -1 - 100 >= 0 И x>0
= -1 -100 = -101 => выводим 'y no'
З.Ы. jreadln нет такого.
З.Ы.Ы. оформляй код