CLS
INPUT "vvedite a$"; a$
n = LEN(a$)
FOR i = 1 TO LEN(a$)
s$ = s$ + MID$(a$, n, 1)
n = n - 1
NEXT
PRINT s$
CLS
INPUT "vvedite a$"; a$
n = LEN(a$)
FOR i = 1 TO LEN(a$)
s$ = MID$(a$, i, 1) + s$
NEXT
PRINT s$
Тестирование выполнено в программе QB64 ( Скачать )