Даны две строчки: S и S0.Проверить, содержится ли строчка S в

program zz1;

var s, s0:string; // задаем переменные строкового типа

k:integer;  // задаем переменную целого типа

begin

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

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

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

read(s0);  // вводим с клавиатуры вторую заданную строку

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

if k = 0 // проверяем, если вхождения нет, то

then write( НЕТ ) // выводим один ответ

else write( ДА ); // по другому, выводим иной ответ

end.