Створити програму, яка при введенні суми поповнення рахунку визначить тарифний план, який Ви можете придбати та виведе кількість наданих Вам хвилин, sms та ГБ інтернету. Визначить Ваш залишок (різницю між вартістю тарифного плану і станом рахунку) і покаже, скільки додаткових хвилин та ГБ Ви зможете замовити на залишок.

//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.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

По сути весь код:

<script>

var users = [];

function addUser() {

 // записываем объекты в переменные

 var newUser = document.getElementById("input_name");

 var listFamilies = document.getElementById("list_families");

 users.push(newUser.value);  // записываем юзера

 users.sort();     // сортируем

 // заполняем лист

 var content = "";

 for (var i = 0; i < users.length; i++) {

  content += `<li class="list-group-item"><b>${i + 1})</b> ${users[i]}</li>`;

 }

 // рисуем новый список

 listFamilies.innerHTML = content;

 // очищаем ввод

 newUser.value = "";

 

}

</script>

Скрин в приложении. Сам пример, будет доступен 14 дней с момента публикации ответа: https://dropmefiles.com/bVYIF