Программа

Program Pilshikov_5_21 (input,output);
{ Приближенно вычислить интеграл
  Pi
  Ї
  їLn(2+sin(x))dx,
  0
  используя формулу прямоугольников
  при n=100:
  b
  Ї
  їf(x)dxўh*[f(x1)+f(x2)+...+f(xN)],
  a
  где h=(b-a)/n, xI=a+i*h-h/2.        }
Var
  i,n:integer;        { i - счетчик, n - разбиение }
  a,b,h,x,Sum:real;   { [a,b] - интервал интегрирования,
                        h - шаг разбиения,
                        x - текущая координата }
BEGIN
  Sum:=0;
  a:=0;
  b:=Pi;
  n:=100;
  h:=(b-a)/n;
  for i:=1 to 100 do begin
                       x:=a+i*h-h/2;
                       Sum:=Sum+Ln(2+sin(x))
                     end;
  writeln(h*Sum)
END.