Question

Плиз найдите ошибку
program PR;
var x,y:Real;
begin
x:=-2.3 {Задаем значение};
while x<1.2 do
begin
if (0.5<=x) then y:=exp(2)*ln(x)/exp(3)+1
else
if (x<=-1) then y:=cos(exp(3))*(exp(4))
else
if (-1 writeln('y=',y);
x:=x+0.2
end;
end.