Плиз найдите ошибку
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.

Program z2;

Var a, b, s: real;

Begin

Writeln ('Введи катеты');

Readln (a, b) ;

s:=1/2*a*b;

Writeln ('s=', s) ;

Readln;

End.

Введи катеты

5 10

s=25.