Дано естественное число n. Поменять первую и заключительную числа в этом

На Бэйсике задание необходимо сделать.

QBasic?

Вариант 1-ый (целый тип данных):

CLS
INPUT "n = ", n
A = n MOD 10
C = n
P = 1
WHILE (C \ 10 gt; 0)
P = P * 10
C = C \ 10
WEND
PRINT A * P + ((n - P * C) \ 10) * 10 + C
END



Вариант второй (строковый тип данных):

CLS
INPUT "n = ", n
PRINT MID(n, LEN(n), 1) + MID(n, 2, LEN(n) - 2) + MID(n, 1, 1)