Дано трехзначное число. вывести кол-во единиц, кол-во десятков, кол-во сотен. с кубейсика))

DIM n AS INTEGER
CLS
INPUT "Vvedite trehznachnoe chislo: ", n
PRINT "edinits-"; n MOD 10
PRINT "desyatkov-"; INT((n MOD 100) / 10)
PRINT "soten-"; INT(n / 100)
END

Тестовое решение:
Vvedite trehznachnoe chislo: 307
edinits- 7
desyatkov- 0
soten- 3