膜拜LS神牛，貌似是某位教主小号....

> 代码：
> var c,t:ansistring;
> 
> procedure cin(var s1:ansistring);
> var mid:char;
> begin
>   s1:='';
>   read(mid);
>   while (mid<>' ')and(ord(mid)<>10)do begin
>     s1:=s1+mid;
>     read(mid);
>   end;
> end;
> 
> function judge(ss,tt:ansistring):boolean;
> var i,j,mid:longint;
> begin
>   i:=1;
>   mid:=length(ss);
>   for j:=1 to length(tt) do begin
>     if tt[j]=ss[i] then begin
>       inc(i);
>       if i=mid+1 then break;
>     end;
>   end;
>   if i=mid+1 then exit(true) else exit(false);
> end;
> 
> begin
>   while not eof do begin
>     c:='';
>     t:='';
>     cin(c);
>     cin(t);
>     if (ord(c[1])=13)or(ord(c[1])=15)or(ord(c[1])=10) then halt;
>    if judge(c,t) then writeln('Yes') else writeln('No');
>   end;
> end.
> 
> 第一百题了，什么时候才有500题啊...