Ошибка

[Игрушка96]

Придирается к а и энду...Хелп...

const
 eps=0.0001;
var
  a,b:real;
  n:integer;
Function F(x:real):real;
begin
  F:=x*ln(sqr(x))-sqrt(x)
end;
   a:=1.2; 
   b:=1.3; 
   n:=1;
    while (a+b)/2-a>eps do
           begin
     if F(a)*F((a+b)/2)<0 then b:=(a+b)/2
                          else a:=(a+b)/2;
          n:=n+1;
           end;
writeln((a+b)/2);
writeln(n-1);
end.

[ZoRT]

очень сильно подозреваю что должно быть так

const
eps=0.0001;
var
  a,b:real;
  n:integer;

Function F(x:real):real;
  begin
    F:=x*ln(sqr(x))-sqrt(x)
  end;

  begin
    a:=1.2; 
    b:=1.3; 
    n:=1;
    while (a+b)/2-a>eps do
      begin
        if F(a)*F((a+b)/2)<0 then b:=(a+b)/2
        else a:=(a+b)/2;
        n:=n+1;
      end;
    writeln((a+b)/2);
    writeln(n-1);
  end;
end.

[Игрушка96]

предпоследний энд оказался лишним...а вообще пасиб большое)