Помогите решить пж⁠⁠

var

  a, b, x, z, alpha: real;

begin

  write('введите A:'); readln(a);

  write('введите B:'); readln(b);

  x:=(a+b)/2;

  if (1+x)/x = -1 then

     writeln('Ошибка - значение X вне области определения для Z(x)')

  else begin

     z:=(1 + x)/(1+(1+x)/x)

     alpha:=a*sqr(x)-cos(b*x)+z/2;

     writeln('Значение функции альфа до 5-го знака - ', alpha:0:5);

  end;

end.