1. сформировать по строке а$ новую строку по правилу: если слово имеет нечетную длину, удалить в нем среднюю букву qbasic

INPUT "Vvedi stroku: ", s$
n = LEN(s$)
IF n MOD 2 <> 0 THEN
   s$ = LEFT$(s$, (n - 1) / 2) + RIGHT$(s$, (n - 1) / 2)
END IF
PRINT s$
END