Вводиться число А меньше 1000. Нужно определить сумму его цифр S и разность A-S

INPUT a
b=a
DO b<>0
s=s+b MOD 10
b=b\10
LOOP UNTIL b=0
PRINT"summa cifr=";s
PRINT "raznost=";a-s

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