Составить программу определения количества сотен, десятков и единиц в записи числа — QBasic(Бейсик)

INPUT a
PRINT "soten="; (a \ 100) MOD 10
PRINT "desyatkov="; (a \ 10) MOD 10
PRINT "edinic="; a MOD 10