Помогите найти ошибку в Паскале (exitcode 217)

Question

Program Example4;
Uses Math;
Var x,i:real;
Begin
x:=-5;
repeat
if x<=0 then
i:=(x*x*x*sin(x))/sin(abs(x))+cos(abs(x));
if x>=1 then
i:=exp(arccos(x)*ln(arcsin(x)));
i:=exp(ln(x)*ln(x));
Writeln(x, '=',i);
x:=x+0.5;
until x>5;
End.

igor_platunov · Accepted Answer

Ошибка возникнет тогда, когда sin(abs(x))=0 - деление на ноль. Это будет при х=0. Либо в выражении i:=(x*x*x*sin(x))/sin(abs(x))+cos(abs(x)); стоят не все скобки.. .

pavel_kul_2 · Answer

1)у вас зацикливание из за него и вылетает ошибка вместо until x>5; надо until x<5; 
2) i всегда принимает одно и тоже значение i:=exp(ln(x)*ln(x)); передним не хватает if then, либо else