记录编号	77568	评测结果	AAAAAAAAAA
题目名称	查字典	最终得分	100
用户昵称	TA	是否通过	通过
代码语言	Pascal	运行时间	0.021 s
提交时间	2013-11-02 09:04:57	内存使用	26.91 MiB

type
 no=record
   data:integer;
   s:string[100];
  end;
var
 i,j,n,d:integer;
 cs:string[100];
 a:array['a'..'z','a'..'z',0..1000] of no;
 l,r:char;
begin
 assign(input,'scanword.in');
 assign(output,'scanword.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   for l:='a' to 'z' do
    for r:='a' to 'z' do
     a[l,r,0].data:=0;
   readln(n);
   for i:=1 to n do
    begin
     readln(cs);
     l:=cs[1];
     r:=cs[length(cs)];
     inc(a[l,r,0].data);
     d:=a[l,r,0].data;
     a[l,r,d].s:=cs;
     readln(a[l,r,d].data);
    end;
   readln(n);
   for i:=1 to n do
    begin
     readln(cs);
     l:=cs[1];
     r:=cs[length(cs)];
     d:=a[l,r,0].data;
     for j:=1 to d do
      if a[l,r,j].s=cs then
        begin
         writeln(a[l,r,j].data);
         break;
        end;
    end;
  //end;
 close(input);
 close(output);
end.