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

input nd$=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+v5print s