PROGRAM INTEGRAL;
 USES CRT;
 VAR X,S:REAL;
 FUNCTION FNX(X:REAL):REAL;
 BEGIN
 FNX:=X*X+3*X+4
 END;
 BEGIN
 CLRSCR;
 S:=0;
 X:=-5;
 WHILE X<5 DO
 BEGIN
 S:=S+0.001*FNX(X);
 X:=X+0.001
 END;
 GOTOXY(10,5);
 WRITELN(#159,'(X)=X',#253,'3X+4');
 GOTOXY(11,WHEREY+3);
 WRITELN('+5');
 WRITELN(#244:10);
 WRITELN(#179:10,#159,'(X)DX=',S:7:3);
 WRITELN(#245:10);
 WRITELN('-5':9);
 READLN;
 END.