Вычислить значение выражения

program bis;
uses crt;
begin f:=power(2,x)+5*x-3;
end;
var a,b,x,e:real;
N:integer;
begin N:=0;
writeln('ввести пределы a, b, погрешность e');
readln(a,b,e);
if f(a)*f(b)<0 then
begin
repeat
x:=(a+b)/2;
if f(a)*f(x)<0 then
b:=x else a:=x;
N:=N01;
until b-a<e;
writeln('решение = ', (a + b) / 2: 4: 2, "количество =', N, 'шагов =', f ((a + b) / 2): 4: 2);
end
else
writeln('неправильно выбранное приближения');
end.

program bis;
 
uses 
crt;
function f(x: real): real;
begin
  f := power(2, x) + 5 * x - 3;
end;
 
var
  a, b, x, e: real;
  N: integer;
 
begin
  N := 0;
  writeln('ввести пределы a, b, погрешность e');
  readln(a, b, e);
  if f(a) * f(b) < 0 then
  begin
    repeat
      x := (a + b) / 2;
      if f(a) * f(x) < 0 then
        b := x else a := x;
      N := N + 1; //N := N01;
    until b - a < e;
    writeln('решение = ', (a + b) / 2:4:2, 'количество =', N, 'шагов =', f((a + b) / 2):4:2);
  end
  else
    writeln('неправильно выбранное приближения');
end.