Задача в Паскале

[Dashutka]

У меня сейчас вот так получилось,ошибка 26 осталась

var i,n,dx: integer;
a,b,e,x1,c,S:real;
function F(x:real):real;
begin
F:=sqrt(x);
end;
begin
readln(a,b,e);
c:=b;
repeat
x1:=(b-a)/2; b:=x1;
until abs(F(x1)-F(a))<e;
dx:=x1-a;
n:=(c-a)/dx;
trunc(n);
S:=0;
for i:=1 to n do begin
S:=(F(a)+F(x1))*dx/2+S;
a:=a+dx;
x1:=x1+dx;
end;
writeln('S=',S:3:3);
end.

[maladoy]

вместо

n:=(c-a)/dx;
trunc(n);

вставьте

n:=trunc((c-a)/dx);

[Dashutka]

Сделала как вы сказали, запускается,но всегда в ответе 0,00000 получается

[Dashutka]

Вот что у меня сейчас,может так легче будет определить
var i,n,dx,a,x1: integer;
b,e,c,S:real;
function F(x:real):real;
begin
F:=sqrt(x);
end;
begin
readln(a,b,e);
c:=b;
repeat
x1:=trunc((b-a)/2); b:=x1;
until abs(F(x1)-F(a))<e;
dx:=x1-a;
n:=trunc((c-a)/dx);
S:=0;
for i:=1 to n do begin
S:=(F(a)+F(x1))*dx/2+S;
a:=a+dx;
x1:=x1+dx;
end;
writeln('S=',S:3:3);
end.

[XeN0N]

x1 должно быть дробным и trunc следовательно не нужно.
dx тоже
в общем все что может принимать дробные значения кроме i и n (их надо округлить в этом случае)

[Dashutka]

равно нулю и все тут, я запуталась уже...