Решение Математических Уравнений

[Shuler]

Подскажите Где Ошибка, Почему то Не Выходит:

var
y, x:real;
begin
readln (x);
if (9-x*x=>0) and (x-4=>0)
then begin
y:=sqrt(9-sqr(x))+ sqrt(x-4);
writeln ('y=', y:10:3);
end
else
writeln ('y NO');
readln;
end.

[whatever]

var
y, x:real;
begin
readln (x);
if (9-x*x>=0) and (x-4>=0)
then begin
y:=sqrt(9-sqr(x))+ sqrt(x-4);
writeln ('y=', y:10:3);
end
else
writeln ('y NO');
readln;
end.

[ViktorR]

Вероятно ошибка в записи выражения:

if (9-x*x>=0) and (x-4>=0)

Тут следует использовать больше скобок:

if ((9-sqr(x))>=0) and ((x-4)>=0)