can you help me,
please give me test11

use something like that:

Step := B/N;
Z    := -B/2;
while 1e-6 < B/2 - Z do
 begin
  WriteLn(Volume(Z, Z+Step):0:6);
  Z := Z + Step;
 end;