Вопрос, который вызвал трудности

На паскале

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

Входные данные
На вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита.

Выходные данные
Необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае.

Примеры
входные данные
abac
ababacaba
выходные данные
yes

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

На паскале

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

Входные данные
На вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита.

Выходные данные
Необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае.

Примеры
входные данные
abac
ababacaba
выходные данные
yes

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var S,S1:string;
Begin
ReadLn(S);
ReadLn(S1);
if Pos(S,S1) <> 0 then WriteLn('yes')
else WriteLn('no')
End.

Program ABC;

var  s, p: string;
begin
writeln('Введите 1 строку:');
readln(s);
writeln('Введите 2 строку:');
readln(p); 
if (pos(s,p) <> 0) then 
writeln('Yes') 
else 
writeln('No');
end.