Интегрирование функции y=x^2+2 на участке от 1 до 10 - Pascal ABC

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

Помогите пожалуйста, новичок в паскале, необходимо создать программу которая будет интегрировать функцию y=x^2+2 на участке от 1 до 10

Решение задачи: «Интегрирование функции y=x^2+2 на участке от 1 до 10»

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

uses crt;
function f(x:real):real;
begin
f:=x*x+2;
end;
var n,i : integer;
    a,b,h,x,s: real;
begin
a:=1;
b:=10;
write('Количество разбиений n='); //чем больше, тем точнее
readln(n);
h:=(b-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);
end.

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

Объявлены переменные: n, i (целые числа), a, b, h, x, s (реальные числа).
Задаются начальные значения переменных: a=1, b=10, n=? (количество разбиений), h=(b-a)/n, x=a+h/2, s=0.
Запускается цикл по i от 1 до n, в котором: 3.1. Суммируется значение функции f(x) с текущим значением s. 3.2. Значение x увеличивается на h.
Значение s умножается на h.
Выводится результат интеграции: s.