10 CLS
20 PRINT "SYSTEM RELIABILITY" 
30 DEFDBL A-Z : DEFSNG I
40 PRINT 
50 PRINT "(TO END PROGRAM ENTER 0)" 
60 PRINT "OPERATING TIME IN HOURS"; 
70 INPUT T 
80 IF T=0 THEN 250  
90 PRINT "NUMBER OF COMPONENTS"; 
100 INPUT N 
110 Z=0 
120 FOR I=1 TO N 
130 PRINT "COMPONENT";I 
140 PRINT " aVERAGE WEAROUT TIME"; 
150 INPUT W 
160 PRINT " AVERAGE FAILURE RATE"; 
170 INPUT F 
180 Z=Z+1/W+F 
190 NEXT I 
200 PRINT 
210 Z=EXP(-Z*T)
220 PRINT "SYSTEM RELIABILITY =";Z 
230 PRINT 
240 GOTO 60   
250 END