Program ploshadj;
Uses crt;
Var a,b,S,x,h:real;
    N:integer;
Function f(x:real):real;
Begin
        f:=sin(5*x)+x;
End;
Begin
        clrscr;
        a:=2;
        b:=6;
        N:=1000;
        S:=0;
        h:=abs(b-a)/N;
        x:=a;
        Repeat
                S:=S+(f(x)+f(x+h))/2*h;
                x:=x+h;
        Until x>(b-h);
        Write(S:0:2);
        Readkey;
End.