Определите расчетную массу состава на подъеме с уклоном i (от­ ношение высоты подъема к длине участка, умноженное на 1ООО) и радиусом кривой R для тепловоза ТЭЗ. Состав сформирован из че­ тырехосных груженых вагонов массой q\ масса тепловоза Р = 252 т.

// JavaScript
var = function (array, minValue, maxValue){
    var isInLimit = function (value) {
        return value >= minValue && value <= maxValue;
    }
    var = function (array, func) {
        var results = [];
        array.forEach(function(element, index, array) {
            if (!!func(element)) {
                results.push(index);
            }
        });
        return results;
    }
    return (array, isInLimit);
}

// That's an example of using the function
([1, 5, 2, 3, 4], 1, 3);

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

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

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

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

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