{* Задача7 *}

REM basic

' ывести знаки переменной A$ в две строки. В первой строке
' 'расположить знаки с нечетным порядковым номером, во второй - с четным.


CLS
A$ = "1212121212": x = 1                
For i = 1 To 2
For j = x To LEN(A$) Step 2
tmp$ = Mid$(A$, j, 1)
B$ = B$ + tmp$
Next j
PRINT B$: x = 2: B$ = ""
Next i
End