Составить подпрограмму для вычисления определенного интеграла методом трапеций

uses crt;
var a,b,S,h,integ: real;
    i,n: integer;
 
function f(x: real): real;
begin
 f:=2*x+1; //сюда интеграл.
end;
 
begin
 clrscr;
 write('a/b/n: '); //нижняя/верхняя границы и число разбиений (обычно 10 хватает)
 readln(a,b,n);
 h:=(b-a)/n;
 for i:=1 to n-1 do
  S:=s+f(a + h*i);
 integ:=h*((f(a)+f(b))/2+S);
 writeln('S=',integ);
 readln;
end.

Для защиты национальных интересов в информационной среде в 2000 г. в Российской Федерации была принята Доктрина информационной безопасности. Этот документ рассматривает должное поведение государства, общества, личности в информационной сфере. Интересы личности связаны с реализацией конституционных прав на доступ к информации, на её использование в деятельности, а также с защитой информации, которая обеспечивает личную безопасность. Интересы общества заключаются в упрочении демократии, создании правового социального государства, достижении и поддержании общественного согласия, в духовном обновлении России. Интересы государства выражаются в создании условий для: а) развития российской информационной инфраструктуры; б) реализации конституционных прав и свобод граждан в области получения и использования информации; в) защиты конституционного строя, законности и правопорядка, суверенитета и территориальной целостности России, её политической, экономической и социальной стабильности; г) равноправного и взаимовыгодного международного сотрудничества.