деление отрезка

[aeynbr]

Подскажите пожалуйста, сколько не пытаюсь что либо изменить программа не идет, что не так

program mbd;
uses crt;

function f(x: real): real;
begin
  F := x * x + x * 2 * x + 3;
end;
var
  a, b, c, x, e: real;
begin
  clrscr;
  writeln('F(x)=x^2+2x+3');
  write('Начало интервала: '); readln(a);
  repeat
    write('Конец интервала: '); readln(b);
    a := 1;
    b := 2;
    repeat
      writeln('e');
      readln(e);

      begin
        if F(a) * F(c) > 0
          then
        begin
          repeat
            c := (a + b) / 2;
            if F(a) * F(c) <= 0 then b := c
            else a := c;
          until b - a < e;
          x := (a + b) / 2;
        end
        else x := a - 1;
        if x < a then writeln('корней нет')
        else writeln('x=');
        readln;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

p.s. позволил себе чуть отформатировать код..

[Sciv]

У Вас два repeat без until и, по-моему, лишний begin - не вникал особо, читать абсолютно неудобно.

Во-первых, код имеет смысл хоть немного структурировать, чтоб не теряться, во-вторых, для публикации его на форуме используйте кнопку #

[Serge_Bliznykov]

aeynbr, обратите внимание, как после форматирования кода сразу стали наглядно видны все ваши косяки, про которые говорил Sciv постом выше...