{* Задача90 *}

REM basic

' Вводится положительное целое число A < 10000.Определить сумму его цифр S и разность A-S.


10 INPUT "Введи целое число не более 10000"; A
30 If A  FIX(A) Or A < 0 Or A > 10000 Then 20
40 S = 0: B = A
50 While A  0
60 C = A Mod 10
70 S = S + C
80 A = A  10
90 Wend
100 PRINT "Сумма цифр введенного числа равна"; S
110 PRINT "Разность между числом и суммой его цифр равна"; B - S
120 End