10 CLS
20 PRINT "GEOMETRIC MEAN AND DEVIATION"
30 PRINT
40 PRINT "(TO END PROGRAM ENTER 0 OBSERVATIONS)"
50 PRINT "NUMBER OF OBSERVATIONS";
60 INPUT N 
70 IF N=0 THEN 210  
80 P=1/N
90 M=1 
100 FOR I=1 TO N 
110 PRINT "ITEM";I; 
120 INPUT D 
130 M=M*D^P 
140 Q=Q+LOG(D)^2
150 NEXT I 
160 R=EXP(SQR(Q/(N-1)-(N/(N-1)*(LOG(M))^2)))
170 PRINT "GEOMETRIC MEAN =";M 
180 PRINT "gEOMETRIC DEVIATION =";R 
190 PRINT 
200 GOTO 50   
210 END