Ввести с клавиатуры двузначное число определить делится ли оно на сумму своих цифрпомогите срочно

Пишу на QBasic CLS INPUT A C=A DIM 10 + A MOD 10 IF A MOD C = 0 THEN PRINT "Да" ELSE PRINT "Нет" END IF