Помогите составить программу на языке Турбо Паскале - вопрос №162839

uses crt;
function F(x:real):real;
begin
F:=x*x*x+3*x-1;
end;
procedure Bisec(a,b,e:real;var x:real);
var c:real;
begin
if F(a)*F(b)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a)*F©<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
  end
else x:=a-1;
end;
var a,b,x,e:real;
begin
clrscr;
writeln('Найти корень функции');
write('Начало интервала: ');readln(a);
repeat
write('Конец интервала: ');readln(b);
until b>a;
repeat
write('Точность: ');readln(e);
until (e>0)and(e<1);
Bisec(a,b,e,x);
if x=a-1 then write('На данном интервале корней нет!')
else writeln('x=',x:0:5);
readln
end.