Input "vvedite slovo"; a

N = LEN(A): K = N \ 2

IF N MOD 2 = 0 THEN

B = ""

FOR I = 1 TO K

B = B + MID$(A, I, 1)

NEXT I

FOR I = 1 TO K \ 2

C = MID$(B, I, 1)

MID$(B, I, 1) = MID$(B, K - I + 1)

MID$(B, K - I + 1) = C

NEXT I

ELSE

B = LEFT$(A, K) + RIGHT$(A, N - (K + 1))

END IF

A = B

PRINT "A="; A

END