Как определить входить ли одна строковая переменная в состав другой.

нужно ответь на вопрос не форме задачи

теоретически ответь с помощью теории

//Pascalvar Str, SubStr: string;begin  Str := 'HelloTestWorld';  //Строка  SubStr := 'Test';              //Подстрокаif Pos(SubStr, Str) = 0 then   writeln('Не входит.')else  writeln('Входит. Позиция = ', Pos(SubStr, Str));end.

На питоне:s1 = input("Bвeдитe 1 строку:")s2= input("Bвeдитe 2 строку:")if s1.find(s2)>=0: print(s2+" входит в "+s1)else: print(s2+" не входит в "+s1)Пример 1:Bвeдитe 1 строку:abcdefgBвeдитe 2 строку:cdecde входит в abcdefgПример 2:Bвeдитe 1 строку:abcdefgBвeдитe 2 строку:acac не входит в abcdefg