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

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

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