Паскаль. Пробелы.

[minimesqa]

Дан текст. Группы символов, разделенных пробелами (одним или несколькими словами) и не содержащие пробелов внутри себя, будем называть словами. Выяснить, встречается ли в данном тексте слово праздник

[Mad_Cat]

s:=' '+s+' ';
if pos (' праздник ',s)<>0 then writeln('Да')
else writeln('НеТ');

[minimesqa]

Сообщение от Mad_Cat

s:=' '+s+' ';
if pos (' праздник ',s)<>0 then writeln('Да')
else writeln('НеТ');

Спасибо, но я недопонимаю, это весь код?

[BDA]

Это практически весь код.
Вам осталось описать переменные, написать begin и end и использовать код Mad_Cat'а.

[Stilet]

Весь вот:

const s='Наш праздник удался';
begin
if pos (' праздник ',' '+s+' ')<>0 then writeln('Да')
else writeln('НеТ');readln;end.