Составление блок-схеммы

[gest]

Добрый день,пожалуйста помогите сделать блок-схему для метода трапеций по данному алгоритму:

program Integral;
var
dx,x1,x2,e,i,xx1,xx2,xx3:real;
c:longint;
function Fx(x:real):real;
begin
Fx:=Ln(5.5+x)+4.3;
end;
begin
x1:=0.815;
x2:=1.315;
e:=0.000596;
writeln('Всего итераций:',round(abs(x2-x1)/e));
i:=0;
for c:=1 to round(abs(x2-x1)/e) do begin
write('Итерация ',c,chr(13));
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
if xx2>xx1 then xx3:=xx1 else xx3:=xx2;
i:=i+abs(xx2-xx1)*e+abs(xx3)*e;
end;
writeln('Интеграл=',i);
end.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=101321
P.S:и несоветую постить по 15 раз.