{* Задача21 *}

REM basic

' Заменить каждую четную букву в произвольном тексте на ее номер


CLS : INPUT "Vvedite tekst: ", a$
For i = 1 To LEN(a$)
   If (i And 1) = 0 Then
    b$ = b$ + LTRIM$(STR$(i))
   Else
    b$ = b$ + Mid$(a$, i, 1)
   End If
Next
PRINT b$
End