Pascal ABC буду благодарна в объяснении кода задачи(код есть нужно объяснить ее)

[Maliish]

Это интеграл решенный методом симпсона и прямоугольника, я не могу въехать в эти задачи, у меня идентичные на решение, думаю после объяснения я смогу их решить) Спасибо за ранее


Метод симпсона:

program integral_2;
var
h,a,b,s,s1,x,int:real;
i,m:integer;

function f(x:real):real;
begin
f := 1/x;
end;

begin
a:=0.5;
b:=1;
read(m);
h:=(b-a)/(2*m);
s:=0;
s1:=0;
x:=a+h;
for i:=1 to (2*m-1) do
begin
if (i mod 2=0) then
s:=s+f(x)
else
s1:=s1+f(x);
x:=x+h;
end;
writeln(s);
writeln(s1);
writeln(f(a));
writeln(f(b));
int:=(h*(f(a)+f(b)+2*s+4*s1))/3;
writeln(int);

end.





Метод прямоугольника:
program integral;
var
s, a, b, h, x: real;
i, n:integer;

function f(x:real):real;
begin
f :=1/power(8-x*x*x, 0.2);
end;

begin
a:=0;
b:=1;
writeln ('Vvedite chislo razbienii');
readln(n);
writeln;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
for i:=1 to n do
begin
s:=s+f(x);
x:=x+h;
end;
s:=s*h;
writeln('Integral raven');
writeln(s:7:6);

end.

P.S. Буду благодарна если объяснения будут под каждой строчкой