zadacht20.BAS

{* Задача20 *}

REM basic

' Удвоить каждую букву текста


CLS : INPUT "Vvedite tekst: ", a$
For u = 1 To LEN(a$) + .5 Step .5
   b$ = b$ + Mid$(a$, INT(u), 1)
Next
PRINT b$
End