DIM X, A, B AS INTEGER INPUT X A=0: B=1 WHILE X>0 A = A+1 B = B*(X MOD 10) X = X \ 10 WEND PRINT A PRINT B