Вычисление интеграла с заданной точностью, помогите понять в чем ошибка Опции

[deymon81]

Составить программу вычисления интеграла S=/f(x)dx на интервале [0.4..1.2] с точностью Е=0.001 методом трапеций


f(x)=cos (x*x)/(x+1)

Вот программа.......

Код

var
    i ,n  :   word;
    h   :   Real;
    s1  :   Real;
    s2  :   Real;
function F (x:Real):Real;
begin
F (x):=  (cos (x*x))/(x+1);
end;
    
function MTrap(a   :   Real; b   :   Real;  E:Real):Real;

begin
writeln ('Введите левую границу интервала а:');Read (a);
writeln ('Введите правую границу интервала b:');Readln (b);
writeln ('Введите точность Е:');Readln (Е);
    n:=1;
    h:=b-a;
    s2:=h*(F(a)+F(b))/2;
    repeat
        s1:=s2;
        s2:=0;
        i:=1;
        repeat
            s2:=s2+F(a-h/2+h*i);
            i:=i+1;
        until not(i<=n);
        s2:=s1/2+s2*h/2;
        n:=2*n;
        h:=h/2;
    until not(Abs(s2-s1)>3*E);
    MTrap:=s2;
WriteLn('Интеграл решенный методом Трапеции равен ' ,MTrap:4:3);
end;

end.

c END- ами ошибка?.......или я что-то не то делаю? Помогите

[klem4]

Исправил синтаксические ошибки

var
    i ,n  :   word;
    h   :   Real;
    s1  :   Real;
    s2  :   Real;

function F (x:Real):Real;
begin
   F :=  (cos (x*x))/(x+1);
end;

function MTrap(a   :   Real; b   :   Real;  E:Real):Real;

begin
writeln ('??????? ????? ??????? ????????? ?:');Read (a);
writeln ('??????? ?????? ??????? ????????? b:');Readln (b);
writeln ('??????? ???????? ?:');Readln (E);
    n:=1;
    h:=b-a;
    s2:=h*(F(a)+F(b))/2;
    repeat
        s1:=s2;
        s2:=0;
        i:=1;
        repeat
            s2:=s2+F(a-h/2+h*i);
            i:=i+1;
        until not(i<=n);
        s2:=s1/2+s2*h/2;
        n:=2*n;
        h:=h/2;
    until not(Abs(s2-s1)>3*E);
    MTrap:=s2;
WriteLn('???????? ???????? ??????? ???????? ????? ' ,MTrap:4:3);
end;
begin
end.