Исходные данные: 1) Произвольное слово, 2) номер позиции в слове Результат:1) кол-во букв в слове, 2) буква, стоящая на заданной позиции.- QBasic(Бейсик)

CLS
LINE INPUT "Vvedite slovo :", SL$
INPUT "Nomer simvola :", n
PRINT "Bukv v slove : "; LEN(SL$)
IF n <= LEN(SL$) AND n > 0 THEN PRINT "Bukva"; MID$(SL$, n, 1)