график интеграла

[Leonid612]

Помогите чем можете
Нужно добавть в программу чтоб она строила интеграл и область штриховала

[Leonid612]

program qq;
var S,L,a,b:real;
n,z:byte;
function integ(a,b:real;n:byte):real;
var S,h,f:real; J:integer;
begin
h:=abs(b-a)/n;
S:=0;
for J:=0 to n-1 do
S:=S+abs(1/(sqrt(1+(2*(a+h*j)*(a+h*j)*(a+h*j)) ))); {Summa ploshad primaug.}
integ:=h*S; {Znachenie integrala.}
end;

begin
repeat
writeln('Vedi nachalnyu i konechnyu granicy');
readln(a,b);
if a<b then begin
writeln('Vedi kolichestvo shagov');
readln (n);
L:=integ(a,b,n);
writeln ('ploshad=',L:3:2);
end
else writeln ('Vi oshiblis granicami');
writeln ('Hoshesh Prodolzit?! 1-да 0-неt');
readln(z);
until Z<>1;
end.

[Leonid612]

http://i011.radikal.ru/1104/b3/3a9953f32356.jpg

вот так должно примерно выглядеть