Дано слово,опеределить входит ли это слово в (да/нет)

//pascal abc.net версия 2.2 сборка 790 var s,sub: string; begin; writeln('введите предложение: '); readln(s); writeln('введите слово: '); readln(sub); if pos(sub,s)< > 0 then writeln('да') else writeln('нет'); //pos() возвращает позицию подстроки в строке. если её нет, возвращает 0 end.пример работы программы: введите предложение: глеб не любит велосипедывведите слово: велосипедыда

//pascalabc.net 3.0, сборка 1064 var   s,w: string; begin   write('введите предложение: '); readln(s);   write('введите искомое слово: '); readln(w);   s: =' '+s+' ';   if pos(' '+w+' ',s)> 0 then writeln('слово входит в предложение')   else writeln('слово не входит в предложение') end. тестовые решения: введите предложение: а роза упала на лапу азора введите искомое слово: роза слово входит в предложение введите предложение: вчера смотрели старую кинопанораму введите искомое слово: кино слово не входит в предложение введите предложение: интересное было кино или так себе? введите искомое слово: кино слово входит в предложение замечание: в программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. в противном случае принято говорить не о слове, а о  контексте (подстроке)

Ппппппппппппппппппппп