10 DEF FNP(X)=0.3*(X-3)*(X-3)-0.2*(X-3)+2
45 INPUT "DELTA X ";DX
47 AREA=0
50 FOR X=0 TO 10-DX STEP DX
52 AR=FNP(X+DX)*DX
55 PRINT "RECTANGLE'S AREA = ";AR
60 AREA=AREA+AR
70 NEXT
80 PRINT "TOTAL AREA IS APPROX.";AREA
90 END