F(X)=X
READ(*,*)A,B,N
H=(B-A)/N
WRITE(*,*)'LOWER LIMIT',A,'UPPER LIMIT',B
WRITE(*,*)'LENGTH OF SUBINTERVAL',H
SUM=0
X=A
DO 35 I=1,N
SUM=SUM+F(X)+F(X+H)
X=X+H
35 CONTINUE
VALUE=H/2*SUM
WRITE(*,*)'THE VALUE OF INTEGRATION',VALUE
STOP
END
RihYKT1YClJFQUQoKiwqKUEsQixOCkg9KEItQSkvTgpXUklURSgqLCopJ0xPV0VSIExJTUlUJyxBLCdVUFBFUiBMSU1JVCcsQgpXUklURSgqLCopJ0xFTkdUSCBPRiBTVUJJTlRFUlZBTCcsSApTVU09MApYPUEKRE8gMzUgST0xLE4KU1VNPVNVTStGKFgpK0YoWCtIKQpYPVgrSAozNSBDT05USU5VRQpWQUxVRT1ILzIqU1VNCldSSVRFKCosKiknVEhFIFZBTFVFIE9GIElOVEVHUkFUSU9OJyxWQUxVRQpTVE9QCkVORA==