разобраться в коде

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.

h:=(b-a)/n;     // делим отрезок, на которм интегрируем на n частей
                //h шаг интегрирования по оси Х
integ:=F(a)+F(b)+4*F(a+h);//начальное значение интеграла
                          //сумма значений функции на краях отрезка
                          //и учетверенное значение в точкена h правее левого края
 for i:=1 to (n div 2)-1 do //в цикле от 1 до середины интервала-1
 begin
 x:=a+2*h*i;//наращиваем значение аргумента от левого края на 2*h на каждой итерации
 integ:=integ+2*F(x)+4*F(x+h);//наращиваем значение интеграла по формуле Симпсона
 end;
 integ:=h*integ/3;//полученную сумму умноэаем на шаг интегрирования и делим на 3
  writeln('Интеграл = ',integ); //выводим результат