На паскале даны две строки. определите, является ли первая строка подстрокой второй строки. входные данные на вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита. выходные данные необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае. примеры входные данные abac ababacaba выходные данные yes
Begin
ReadLn(S);
ReadLn(S1);
if Pos(S,S1) <> 0 then WriteLn('yes')
else WriteLn('no')
End.
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.