10 PRINT "INPUT I,X. TO END PROGRAM INPUT 0,0"
20 INPUT I,X 
25 IF I=0 THEN 190 
30 X1=(X/2)^2
40 S,J,T,L=1 
50 K=-1
70 T=T*X1/J/(I+J)
80 S=S+K*T 
90 IF T<1E-6 THEN 130
100 K=-K 
110 J=J+1
120 GOTO 70
130 FOR K=1 TO I 
140 L=L*K
150 NEXT K 
160 PRINT "ANS.:";(X/2)^I/L*S
170 PRINT 
180 PRINT "INPUT I,X"
185 GOTO 20
190 END 

