Для решения этой задачи можно воспользоваться следующим кодом на QBasic:

CLS
INPUT "Введите строку: ", a$
words = SPLIT(a$, " ")
newString = ""
FOR i = 0 TO UBOUND(words)
word = words(i)
IF LEN(word) MOD 2 <> 0 THEN
middleIndex = INT(LEN(word) / 2) + 1
newWord = LEFT(word, middleIndex - 1) + MID(word, middleIndex + 1)
newString = newString + newWord + " "
ELSE
newString = newString + word + " "
END IF
NEXT
PRINT "Новая строка: "; newString

Этот код разделит введенную строку на отдельные слова, затем проверит каждое слово на четность длины. Если длина слова нечетная, то удалит среднюю букву из него. После этого будет сформирована новая строка и выведена на экран.

Пример работы:

Введите строку: hello world
Новая строка: helo world