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

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.