Паскаль - пишет при вводе 0 - Ошибка:вещественное деление на нуль и когда ввожу цифру -0.1

[MoLoDoI]

Не могу найти ошибку...
пишет при вводе 0 - Ошибка:вещественное деление на нуль и когда ввожу цифру -0.1

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

[Firstchar]

Сообщение от MoLoDoI

Не могу найти ошибку...
if ((sqr(x)-1)/x>0) and (ln((sqr(x)-1)/x)>=0)

y:=sqrt(ln(sqr(x)-1)/x);

да нет тут ошибки, просто ты в этих выражениях делишь на Х, а, следовательно, если х=0, то и на 0.

[MoLoDoI]

значит просто не нужно делить на X?

[Firstchar]

просто не нужно делить на 0

[MoLoDoI]

Спасибо,все получилось=)