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

На питоне: 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 строку: abcdefgbвeдитe 2 строку: cdecde входит в abcdefgпример 2: bвeдитe 1 строку: abcdefg bвeдитe 2 строку: ac ac не входит в abcdefg

//pascal var str, substr: string; begin   str : = 'hellotestworld';   //строка   substr : = 'test';                         //подстрока if pos(substr, str) = 0 then   writeln('не входит.') else   writeln('входит. позиция = ', pos(substr, str)); end.

Program pr; var   arr: array[1..5] of array[1..5] of integer;   max, nmax: integer; begin   randomize;     {формирование массива}   for var i : = 1 to 5 do       for var j : = 1 to 5 do           arr[i][j] : = random(20) - 10;             {показ массива}   for var i : = 1 to 5 do       for var j : = 1 to 5 do           write(arr[i][j], ' ');   writeln();     {поиск максимального элемента}   max : = arr[1][1];   for var i : = 1 to 5 do       for var j : = 1 to 5 do           if (max < = arr[i][j]) then max : = arr[i][j];     {подсчет максимальных элементов}   nmax : = 0;   for var i : = 1 to 5 do       for var j : = 1 to 5 do           if (arr[i][j] = max) then nmax : = nmax + 1;             writeln('максимальный элемент: ', max);   writeln('количество таких элементов: ', nmax); end.