В трехзначном числе x зачеркнули его вторую цифру. Когда к образованномупри

Пусть сначало число имело вид abc, После зачеркивания 2-ой числа оно перевоплотился в ac, а когда зачеркнутую b приписали справа, вышло acb=456, откуда понятно, что практически поменяли местами цифры b и c. Потому программа обязана получить число (456) и поменять в нем последнюю цифру с примыкающей, получив 465.

MS DOS QBasic 1.0

DIM r AS INTEGER
CLS
INPUT r
b = r MOD 10
a = INT(r / 100)
c = INT(r / 10) MOD 10
r = 100 * a + 10 * b + c
PRINT "x="; r