MaxLuk_5

DIM A$, B$, I AS INTEGER
INPUT "Введите массив A как строку текста: ", A$
FOR I = 1 TO LEN(A$)
    IF MID$(A$, I, 1) = "х" THEN
        EXIT FOR
    ELSEIF I = LEN(A$) THEN
        PRINT "В массиве должно быть 2 русские буквы 'х'!"
        END
    END IF
NEXT I
FOR I = I + 1 TO LEN(A$)
    IF MID$(A$, I, 1) = "х" THEN
        EXIT FOR
    ELSEIF I <> LEN(A$) THEN
        B$ = B$ + MID$(A$, I, 1)
    ELSEIF I = LEN(A$) THEN
        PRINT "В массиве должно быть 2 русские буквы 'х'!"
        END
    END IF
NEXT I
PRINT "Строка - результат: "; B$