Пользователь вводит 5-ое число, используя цикл for посчитать сумму цифр в числе

Input n
d$=str$(n)
d$=mid$(d$,2)
v1=val(mid$(d$,1,1))
v2=val(mid$(d$,2,1))
v3=val(mid$(d$,3,1))
v4=val(mid$(d$,4,1))
v5=val(mid$(d$,5,1))
s=v1+v2+v3+v4+v5
print s