CLS
PRINT TAB(20); "Опредение слов в строке начинающихся и оканчивающихся"
PRINT TAB(30); "одной и той же буквой": PRINT : PRINT
PRINT TAB(20);
1 : INPUT "Введите строку: ", t$
IF t$ = "" THEN
PRINT : PRINT TAB(20);
        PRINT "Строка не может быть пустой!"
        GOTO 1
END IF
l = LEN(t$)
j = 1
FOR i = 1 TO l
b$ = MID$(t$, i, 1)
IF b$ <> " " THEN c$(j) = c$(j) + b$ ELSE j = j + 1
NEXT i
FOR i = 1 TO j
k$ = LEFT$(c$(i), 1)
k1$ = RIGHT$(c$(i), 1)
IF k$ = k1$ AND LEN(t$) > 1 THEN
p$ = p$ + c$(i) + " "
END IF
NEXT i
IF p$ <> "" THEN
PRINT
PRINT TAB(20); "Искомые слова: "; p$
ELSE
PRINT
PRINT TAB(20); "Искомых слов нет."
END IF