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