Даны две строки. Определите, является ли первая строка подстрокой второй строки.

ВХОДНЫЕ ДАННЫЕ
На вход подается две строки.

ВЫХОДНЫЕ ДАННЫЕ
Необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае.
Загрузите исходный код программы

ПРИМЕРЫ

Const   n=10; var   a: array[1..n] of integer;   i,kp,sn: integer; begin   randomize;   writeln('элементы массива');   kp: =0; sn: =0;   for i: =1 to n do   begin       a[i]: = random(31)-10;       write(a[i]: 4);       if a[i]> 0 then inc(kp);       if (i mod 2)< > 0 then sn: =sn+a[i]   end;   writeln;   writeln('количество положительных элементов: ',kp);   writeln('сумма элементов на нечетных местах: ',sn);   writeln('элементы массива после замены');   for i: =1 to n do   begin       if a[i]< 10 then a[i]: =10;       write(a[i]: 4)   end;   writeln end. тестовое решение: элементы массива   10  11  -4  11  12  13  -1  -2  -8    7 количество положительных элементов: 6 сумма элементов на нечетных местах: 9 элементы массива после замены   10  11  10  11  12  13  10  10  10  10