CONST
 Npoints=100;
VAR
 X,Xbeg,Xfin,DX,S:Real;
 N:Word;
 i:Integer;

Function Fun(xf:Real):Real;
 begin
  Fun:=5.0*SQR(xf)-xf+2;
 end;

Function Int_Fun(Xl,Xh:Real):Real;
 begin
  Int_Fun:=(5.0*Xh*Xh*Xh/3-Xh*Xh/2+2.0*Xh)-
           (5.0*Xl*Xl*Xl/3-Xl*Xl/2+2.0*Xl);
 end;

BEGIN
 Write('Lower limit = ');
 ReadLn(Xbeg);
 Write('Upper limit = ');
 ReadLn(Xfin);
 DX:=(Xfin-Xbeg)/Npoints;
 S:=0;
 For i:=1 to Npoints do
  begin
   X:=Xbeg+Dx*(i-1);
   S:=S+Fun(X);
  end;
 WriteLn('Approximate value = ',S*Dx:10:5);
 WriteLn('Accurate value = ',Int_Fun(Xbeg,Xfin):10:5);
 Readln;
END.