Выделить в целом пятизначном числе три средние цифры , к полученному прибавить произведение первой и последний цифр исходного числа- QBasic(Бейсик)

INPUT "пятизначное число"; n
k = n \ 10000
r = n MOD 10
m = (n MOD 10000) \ 10
s = m + k*r
PRINT "s="; s

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