记录编号	15203	评测结果	AAAAAAAAAA
题目名称	查字典	最终得分	100
用户昵称	ReimBurSe.	是否通过	通过
代码语言	Pascal	运行时间	0.703 s
提交时间	2009-11-10 16:21:32	内存使用	64.58 MiB

Program scanword;

Type
abc=record
 k:string;
 p:longint;
end;
sc=array [1..26,0..10000] of abc;

Var
s:sc;
z:string;
i,j,q:longint;
n,m:longint;

Begin
assign(input,'scanword.in');
assign(output,'scanword.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to 26 do s[i,0].p:=0;
for i:=1 to n do begin
 readln(z);
 j:=ord(z[1])-ord('a')+1;
 s[j,0].p:=s[j,0].p+1;
 s[j,s[j,0].p].k:=z;
 readln(s[j,s[j,0].p].p);
end;
readln(m);
for i:=1 to m do begin
 readln(z);
 j:=ord(z[1])-ord('a')+1;
 q:=1;
 while s[j,q].k<>z do q:=q+1;
 writeln(s[j,q].p);
end;
close(input);
close(output);
End.