ЗАДАЧА ПО ИНТЕГРАЛУ

[oblachko]

ЛЮДИ!!!Подскажите пожалуйста, как находить сумму площадей трёх центральных трапеций???
Заранее благодарю=))

program integral;
var
x,x1,dx,y,e,s1,s,a,b:real;
begin
readln(a,b,e);
x:=0;
x1:=0.001;
repeat
begin
x:=x+0.00000000000000000001;
x1:=x1-0.00000000000000000001;
dx:=x1-x;
end
until
(abs(sqr(x1))-(sqr(x+dx)))<e;
while (a<b) do
begin
s1:=(sqr(a)+sqr(a+dx))*dx/2;
a:=a+dx;
s:=s+s1;
end;
write(s);
readln;
end.