Методом трапеций найти значение интеграла функции

Методом трапеций найти значение интеграла функции x-Cos(x) в пределах от 0 до 2. а) открыть новый файл и набрать текст программы: PROGRAM P10; FUNCTION FUN(X:REAL):REAL; BEGIN FUN:=X-COS(X); END; VAR H,X,Y,A,B:REAL; I,N:INTEGER; BEGIN WRITELN(’Ввести данные A(0),B(2),N(1000) = ’); READ(A,B,N); X:=0; Y:=0; H:=(B-A)/N; FOR I:=1 TO N-1 DO BEGIN X:=X+H; Y:=Y+FUN(X); END; Y:=H/2*(FUN(A)+FUN(B)+2*Y); WRITELN(’Результат= ’,Y); END. б) выполнить программу щелчком по соответствующей кнопке меню или клавишей F9;