Дано натуральное число N.Найти сумму цифр этого числа.(Qbasik)

Question

Дано натуральное число N.Найти сумму цифр этого числа.(Qbasik)

Answer 1

INPUT A%
S$ = STR$(A%)
SUM = 0
FOR I = 1 TO LEN(S$)
SUM = SUM + VAL(MID$(S$,I,1))
NEXT I
PRINT SUM