Вычислить интеграл по формуле прямоугольников - Turbo Pascal

Формулировка задачи:

Вычислить по формуле прямоугольников. ? где а =t в третьей - sint, где t=, p=b+t во второй, b = max из чисел a и t/ паскаль

Решение задачи: «Вычислить интеграл по формуле прямоугольников»

Листинг программы

uses crt;
function f(x:real):real;
begin
f:=x+1;
end;
var a,b,p,h,x,s:real;
    t,k,n,i:integer;
begin
clrscr;
t:=2;{t=1*2}
a:=t*t*t-sin(t);
if a>t then b:=a else b:=t;
p:=b+t*t;
write('Число разбиений n=');{чем больше n, тем выше точнсть}
readln(n);
h:=(p-a)/n;
x:=a+h/2;
s:=0.0;
for i:=1 to n do
 begin
  s:=s+f(x);
  x:=x+h;
 end;
s:=s*h;
write('Интеграл = ',s:0:4);
readln;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с числовыми значениями.
Определяется функция f(x), которая вычисляет значение функции для переменной x.
Определяются переменные a, b, p, h и x, которые будут использоваться в дальнейшем коде.
Определяется переменная s, которая будет использоваться для хранения результата интегрирования.
Задается начальное значение t, которое равно 2.
Вычисляется значение a, которое является произведением трех значений переменной t.
Если значение a больше значения t, то значение переменной b устанавливается равным значению a, иначе значение b устанавливается равным значению t.
Вычисляется значение p, которое является суммой значения a и значения t, умноженного на 2.
Выводится сообщение с предложением ввести значение n, которое будет использоваться для разбиения интервала.
Вычисляется значение h, которое является средним значением интервала от a до b, деленное на значение n.
Значение переменной x устанавливается равным a плюс значение h/2.
Значение переменной s устанавливается равным сумме произведения значения x на функцию f(x) и значения h.
Выводится сообщение с предложением ввести значение n.
Цикл for начинается, который выполняется n раз.
На каждой итерации цикла значение переменной s увеличивается на произведение значения x на функцию f(x) и значения h.
Значение переменной x увеличивается на значение h.
Выводится сообщение с предложением ввести значение n.
Цикл for заканчивается.
Значение переменной s выводится на экран.
Программа завершается.