Подготовка к ЕГЭ

DIM a(26): u$ = "abcdefghijklmnopqrstuvwxyz"
DO: INPUT b$
    a(INSTR(u$, b$)) = a(INSTR(u$, b$)) + 1
LOOP UNTIL b$ = "."
FOR i = 1 TO 26: min = 1E38: a(k) = min: FOR j = 1 TO 26
        IF a(j) < min THEN min = a(j): k = j
    NEXT
    IF a(k) <> 0 THEN c$ = c$ + MID$(u$, k, 1)
NEXT
PRINT c$

DIM i, j, k, a(26) AS INTEGER
DIM s(26) AS STRING * 1
FOR i = 1 TO 26
    a(i) = 0
    s(i) = CHR$(ASC("a") + i - 1)
NEXT
INPUT c$
DO WHILE NOT (c$ = ".")
    a(ASC(c$) - ASC("a") + 1) = a(ASC(c$) - ASC("a") + 1) + 1
    INPUT c$
LOOP
FOR j = 1 TO 25
    FOR i = 1 TO 25
        IF a(i) < a(i + 1) THEN
            k = a(i)
            c$ = s(i)
            a(i) = a(i + 1)
            s(i) = s(i + 1)
            a(i + 1) = k
            s(i + 1) = c$
        END IF
    NEXT
NEXT
i = 1
DO WHILE i < 27 AND a(i) > 0
    PRINT s(i);
    i = i + 1
LOOP
END

DIM a(9): u$ = "0123456789"
DO: INPUT b$: c = INSTR(u$, b$) - 1: d = a(0)
    IF c >= 0 AND b$ <> "" THEN a(c) = a(c) + 1: q = q + 1
LOOP UNTIL b$ = "."
FOR i = 0 TO 9
    IF a(i) MOD 2 <> 0 THEN a(i) = a(i) - 1: w = i: k = k + 1
    a(i) = a(i) / 2
NEXT
IF q = 0 OR k > 1 OR q - d <= 1 THEN
    IF d = 1 THEN PRINT "YES", "0" ELSE PRINT "NO"
ELSE
    FOR i = 9 TO 0 STEP -1: FOR j = 1 TO a(i)
            q$ = MID$(u$, i + 1, 1)
            n1$ = n1$ + q$: n2$ = q$ + n2$
    NEXT: NEXT
    c$ = n1$ + MID$(u$, (w + 1) * k, 1) + n2$
    PRINT "YES", c$
END IF