проилюстрировать процесс нахождения интегралла

[fratriecz]

ребята вот программа нахождения интегралла как сделать чтобы она рисовала это?????
program zad3var12;
uses crt;
Function F(x:Real):Real;
begin
F:=1.0/(x+1.0);
end;
var
a,b:real; {вводимые числа{пределы искомого интеграла}
i,N:Integer; {аргументы}
Sum1,Sum2,h:Real; {результаты}
begin
readln(a,b);
N:=5;
h:=(b-a)/N;
Sum1:=0;
for i:=0 to N-1 do
Sum1:=Sum1+h*F(a+h*i);
Sum2:=Sum1;
WriteLn('значение итеграла: ',sum2:10:3);
end.