Question

Program v6;
Var x,y:real;
Begin
writeln('x');
readln(x);
if x<0 then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1));
if x>=0 then y:=x*x+4*cos(x);
writeln('y = ',y);
end.

x1=-0,9 ; 0
x2= 7; 0,5

Программа "Розгалуження"
пишу в turbo pascal вот такую программу и выдает ошибку ( Ошибка выполнения 106 по адресу 0000:0049. )