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

Проверить входные данные.

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

автор: кот Бегемот