Составить на qbasic программу для подсчета количества цифр введенного целого числа..нужно . не обижу.

DIM n, m
INPUT " n = ", n
PRINT
m = 0
WHILE n > 1
n = n / 10
m = m + 1
WEND
PRINT " number of digits = ", m
PRINT
DO
LOOP WHILE INKEY$ = ""