Помогите пожалуйста, информатика, надо написать программу), говорят легко, но я не разбираюсь

Программа на паскале:
var x,y:real;
begin
write(x = );
readln(x);
if xgt;=1
 then y:=x*x+sin(x)
 else if xgt;0 then y:=(1-x)/sqrt(sin(x)/cos(x))
             else y:=x*x*x+8*x-1;
writeln(y = ,y);
end.

Пример:
x = 3.945
y = 14.8432991568405