Var
Word, sokol: string;
SearchWord: string[20];
Position: Byte;
Begin
write('Введите слово:');
readln(Word);
sokol := 'сокол';
writeln(sokol);
SearchWord := 'сок';
writeln(SearchWord);
Position := Pos(SearchWord, Word);
if Position <> 0 then
begin
if (Word = sokol) then
writeln('Это слово-', Word)
else
writeln('Слово:', SearchWord, ' содержится в слове-', Word);
end
else
writeln('нет', Word, 'нет');
End.