Составте программу, определяющую, есть ли последняя буква слова X в слове X - QBasic

составте программу ,определяющую ,есть ли последняя буква слова X в слове X.

Листинг программы

DEFSTR X-Y
CLS
INPUT "SLOVO X ="; x
INPUT "SLOVO Y ="; y
 
x1 = RIGHT$(x, 1)
z% = INSTR(y, x1)
IF z% = 0 THEN PRINT "No" ELSE PRINT "Yes"
END

Объяснение кода листинга программы

DEFSTR X-Y - выполняет команду компиляции с использованием оператора DEFSTR для объединения строк X и Y в одну строку с символом - между ними.
CLS - очищает экран перед выводом результатов.
INPUTSLOVO X =; x - запрашивает у пользователя ввод строки X и сохраняет ее в переменной x.
INPUTSLOVO Y =; y - запрашивает у пользователя ввод строки Y и сохраняет ее в переменной y.
x1 = RIGHT$(x, 1) - сохраняет в переменной x1 последнюю букву строки X.
z% = INSTR(y, x1) - находит первое вхождение строки x1 в строку y и сохраняет позицию в переменной z%.
IF z% = 0 THEN PRINTNoELSE PRINTYes` - проверяет значение переменной z%. Если оно равно 0, то выводитNo, иначе выводитYes`.