Напишите программу вычисления следующих выражений.​

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

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

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

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

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

Решено, исходные данные:
a(1)=0 a(2)=1
a(n+2)=a(n+1)-a(n)
Найди a(885)
Внимание: скобка означает число в нижнем индексе.
Решаем, исходим сразу от наибольшего числа:
a(885)=a(884)-a(883)=a(883)-a(882)-a(883)=a(882)
В чем фокус-покус. Сначала мы применили формулу по отношению к числуa(885), а потом к числу a(884), из чего получилось равенство a(885)=a(882)
Тем самым, мы можем утверждать, что числа в последовательностях будут совпадать каждые 885-882=3 раза. 885 кратно 3, следовательно ищем наименьшее общее кратное число, оно равно 3. Следовательно a(885)=a(3)
Находим a(3) из формулы: a(3)=a(2)-a(1)=1-0=1, следовательно a(885)=1