Вводится натуральное число n, определить количество цифр числа и сумму его цифр- QBasic(Бейсик)

input n
do
s=s+n mod 10
n=n\10
k=k+1
loop until n=0
print k
print s

CLS
DEFDBL A-Z
INPUT "vvedite n"; b
DO
    k = k + 1
    s = s + (b MOD 10)
    b = b \ 10
LOOP UNTIL b = 0
PRINT "summa:"; s
PRINT "kollichestvo cifr:"; k