В числовую переменную К вводится целое число (-30000 <= К <= 30000). Определить сумму цифр — QBasic(Бейсик)

disel 
DO
INPUT k
LOOP UNTIL k>=-30000 AND k<=30000
 
DO
s=s+k MOD 10
k=k\10
LOOP UNTIL k=0
PRINT s