численное интегрирование методом Симпсона: трудности с блок-схемой

[smalljoke]

Здравствуйте, доброй ночи, мне к 08.00 утра очень бы пригодилась блок-схема к такой вот программе:

program Simpson;

{интегрируемая функция}
function F(x:Real):Real;
begin
F:=2*x;
end;

var a,b,h,x :real;
n,i :integer;
integ :real;

begin
write('Введите начало интегрирования a='); readln(a);
write('Введите конец интегрирования b='); readln(b);
write('Введите количество разбиений интервала (четное число) n='); readln(n);
if (n mod 2)>0 then
begin
n:=n+1;
writeln('Число n было введено нечетное, оно было заменено на n=',n);
end;

h:=(b-a)/n;
integ:=F(a)+F(b)+4*F(a+h);
for i:=1 to (n div 2)-1 do
begin
x:=a+2*h*i;
integ:=integ+2*F(x)+4*F(x+h);
end;
integ:=h*integ/3;
writeln('Интеграл = ',integ);
end.

буду признателен тому, кто мне поможет, я в них ничего не смыслю, а голова в такое время долго соображает. спасибо за внимание!