ответить на 9,10,11,12 вопросы информатика 5 класс​

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

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

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

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

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

Varm: set of byte;u,s,r,a,p,e,c: integer;beginm := [];for u := 1 to 6 doif not (u in m) thenbeginInclude(m, u);for s := 0 to 6 doif not (s in m) thenbeginInclude(m, s);for r := 0 to 6 doif not (r in m) thenbeginInclude(m, r);for a := 0 to 6 doif not (a in m) thenbeginInclude(m, a);for p := 1 to 6 doif not (p in m) thenbeginInclude(m, p);for e := 0 to 6 doif not (e in m) thenbeginInclude(m, e);for c := 0 to 6 doif not (c in m) thenbeginInclude(m, c);if u * 1000 + s * 100 + s * 10 + r +u * 100 + s * 10 + a =p * 10000 + e * 1000 + a * 100 + c * 10 + e thenWriteLn(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e);Exclude(m, c)end;Exclude(m, e);end;Exclude(m, p);end;Exclude(m, a)end;Exclude(m, r)end;Exclude(m, s)end;Exclude(m, u)end;WriteLn(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e);end.

{попробуй это}