Численные методы. Паскаль

[(kate)]

Привет, ребята! у меня убедительная просьба, помогите написать паскаль-программу для вычисления интегралов. за ранее благодарна
Условие
Вычислить интегралы численными методами: методом левых прямоугольников, методом правых прямоугольников, методом трапеций, методом Симпсона. При чем каждый метод, необходимо реализовать в виде отдельной подпрограммы (процедуры или функции). Количество точек разбиения n, n>10.
В вордовском документе я указала интегралы, которые надо вычислить.

[dr.Jekill]

Вот у меня валялось на прямогугольнки, Еще когда в технаре учился, так что за качество не речуюсь
[syntax=pascal]
program integral;
uses crt;
var a,b,x,y,h:real;
n,i:integer;
begin
clrscr;
writeln('Vvedite predely integrirovania:');
write('nizhniy->');
read(a);
write('verhniy->');
read(b);
write('Vvedite kol-vo priamougolnikov->');
read(n);
h:=(b-a)/n;
y:=0;
x:=a;
for i:=1 to n do
begin
y:=y+(sin(x-1))/(3+2*x);
y:=b*h;
end;
readln;
write('y=',y:6:3);
readln;
end.
[/syntax]