Даны две строки: 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.