DIM c$(100)
INPUT "vvedite frazu ", a$
FOR i = 1 TO LEN(a$)
b$ = MID$(a$, i, 1) + b$
NEXT
PRINT "fraza naoborot"
PRINT b$
b$ = " " + b$
FOR i = 1 TO LEN(b$)
IF MID$(b$, i, 1) = " " THEN k = k + 1:  ELSE c$(k) = c$(k) + MID$(b$, i, 1)
NEXT
PRINT "slova"
FOR i = 1 TO LEN(b$)
PRINT c$(i)
NEXT