Составить программу, которая определяет имеется ли в данном слове, часть, равная другому заданному слову. Например: слово 'код' входит в слово 'крокодил', но не входит в слово 'овод'. Оба слова должны запрашиваться с клавиатуры

program zz1;

var s, ch:string; / / заводим переменные

k:integer;

begin

write (' введите строку ');

readln (s); / / вводим исходную строку с клавиатуры

write ('введите заданный символ ');

read (ch); / / вводим другую строку

k:=pos (ch, s); / /находим позицию другого слова в исходной строке

if k = 0 / / проверяем, если позиция другого слова в строке равна нулю, то слова в строке нет и выводим ответ

then write ('заданного слова в исходной строке нету ') else write ('заданное слово в исходной строке есть ');

end.