program simpsono;
function F(x:real):real;
begin
F:=ln(x)/ln(10)-ln(x-1)/ln(10);
end; var
h:real;a,b:real;
I,s1,s2:real;
n:integer;
k:integer;x:integer;
begin
writeln ('vvedite levuyu granizu a= ');
readln (a);
writeln('vvedite pravui granizu b= ');
readln (b);
writeln ('vvedite chetnoe kolichestvo razbienii n=');
readln (n);
if (n mod 2) >0 then
n:=n+1 ;
h:=trunc ((b-a)/6*n);
s1:=0;
s2:=0;
for k:=1 to n do
begin
if(k mod 2)=0 then s1:=s1+F(x) else s2:=s1+F(x)
end;
I:=h*(F(a)+(F(b)+2*(s1)+4*(s2)));
readln(I);
end.
В чем здесь ошибка?
