15 READ Z,A,B,D
20 S,T=0 
30 IF Z=1 THEN 60
40 READ Y1  
50 GOTO 80  
60 Y1=FNC(A)  
70 Y2=FNC(B)  
80 FOR I=1 TO (B-A)/D-.5  
90 IF Z=1 THEN 120 
100 READ Y  
110 GOTO 130  
120 Y=FNC(A+I*D)  
130 IF I/2=INT(I/2) THEN 160 
140 S=S+Y 
150 GOTO 170  
160 T=T+Y 
170 NEXT I  
180 IF Z=1 THEN 200
190 READ Y2 
200 PRINT "INTEGRAL=";D/3*(Y1+4*S+2*T+Y2)
999 END 

