Найти разницу первой цифры и последней - QBasic

1)Дано целое положительное число N (от 10 до 9999). Найти разницу первой цифры и последней. 2)... спасибо за помощь

Листинг программы

CLS
INPUT "Enter a number between 10 and 9999:",N
PRINT VAL(MID$(STR$(N),2,1))-VAL(RIGHT$(STR$(N),1))
END

Объяснение кода листинга программы

CLS — очистка экрана
INPUTEnter a number between 10 and 9999:,N — запрос ввода числа от пользователя, ввод сохраняется в переменную N
PRINT VAL(MID$(STR$(N),2,1))-VAL(RIGHT$(STR$(N),1)) — печать разницы первой цифры и последней цифры числа, которое введено пользователем.
END — конец программы