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

//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. Тестовые решения: Введите предложение: А роза упала на лапу Азора Введите искомое слово: роза Слово входит в предложение Введите предложение: Вчера смотрели старую кинопанораму Введите искомое слово: кино Слово не входит в предложение Введите предложение: Интересное было кино или так себе? Введите искомое слово: кино Слово входит в предложение Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)