Не могу исправить ошибку в коде

Question

Ошибка 41: Типы оперантов не соответствуют операции. 
 
program lab1; 
var 
fx, x: real; 
begin; 
writeln('Enter X:'); 
readln(x); 
if sqr(x)>2 and sqr(x)<5 then fx:=sqr(x)*x+1 
else if sqr(x)<2 or sqr(x)=2 then fx:=x-3 
else fx:=x+4; 
writeln('The answer is:',fx); 
end. 
 
Что сделать?

Олег Балакин · Accepted Answer

Скобки поставить 
 
program lab1; 
var 
fx, x: real; 
begin; 
writeln('Enter X:'); 
readln(x); 
if (sqr(x)>2) and (sqr(x)<5) then fx:=sqr(x)*x+1 
else if (sqr(x)<2) or (sqr(x)=2) then fx:=x-3 
else fx:=x+4; 
writeln('The answer is:',fx); 
end.

Сергей Лепков · Answer

Нужно правильно представить интервалы:

2 < x² < 5
x² ≤ 2
x² ≥ 5

Т. е. однозначно определено:

if x*x >=5 then fx := x + 4
else x*x >= 2 then fx := x*x*x + 1
else fx := x - 3;