记录编号	126492	评测结果	AAAAA
题目名称	1726.苦恼中的嘉豪	最终得分	100
用户昵称	helloworld123	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2014-10-13 11:41:15	内存使用	0.17 MiB

program cogs1726;
var
 len,len1,i,j,n,m:longint;
 s1,s:ansistring;
procedure  zuo;
var
  i,j:longint;
  v,f:boolean;
begin
 i:=1; v:=false;

 while i<=len do
  begin
   if (s[i]=s1[1])and(len1<=len-i+1) then
   begin
    f:=true;
    for j:=1 to len1 do
	  if s1[j]<>s[i+j-1] then
	   begin
	    f:=false;
		break;
	   end;
	if f then
	 begin
            v:=true;
	   delete(s,i,len1);
           len:=len-len1;
	 end else
	   inc(i);
   end else inc(i);
  end;

  if v then writeln('Yes') else writeln('No');

end;
begin
 assign(input,'Jiahao3.in'); reset(input);
 assign(output,'Jiahao3.out'); rewrite(output);
  readln(s);
  len:=length(s);
  readln(m);
  for i:=1 to m do
   begin
    readln(s1);
	len1:=length(s1);
    zuo;
   end;
 close(input); close(output);
end.