Дано число n, перевернуть это число

CLS
INPUT n
m = n MOD 10
n = n \ 10
WHILE n > 0
m = m * 10 + n MOD 10
n = n \ 10
WEND
PRINT m

m - число-перевертыш, MOD - получение остатка от деления (123 mod 10 = 3). \ - это целочисленное деление (123 \ 10 = 12).

автор: Phantom