//Pascal
var 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 строку:\n")
s2= input("Bвeдитe 2 строку:\n")
if s1.find(s2)>=0: print(s2+" входит в "+s1)
else: print(s2+" не входит в "+s1)

Пример 1:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
cde
cde входит в abcdefg

Пример 2:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
ac
ac не входит в abcdefg