В целом шестизначном числе выделить 3 первые цифры и найти разность между первым трёхзначным числом и вторым- QBasic(Бейсик)

INPUT "vvedite chislo"; a$
b = VAL(MID$(a$, 1, 3)) - VAL(MID$(a$, 4, 3))
PRINT b

Тестирование выполнено в программе QB64 ( Скачать )