记录编号	77526	评测结果	AAAAAAAAAA
题目名称	399.查字典	最终得分	100
用户昵称	TA	是否通过	通过
代码语言	Pascal	运行时间	0.019 s
提交时间	2013-11-02 08:31:45	内存使用	2.08 MiB

program scanword(input,output);
 
type
  re=record
    s:string[100];
    page:integer;
  end;
 
var
  i,j,n:integer;
  str:string[100];
  list:array['a'..'z','a'..'z',0..100]of re;
 
begin
  assign(input,'scanword.in');
  reset(input);
 
  assign(output,'scanword.out');
  rewrite(output);
  //while not(eof) do
  //begin
  readln(n);
  for i:=1 to n do
  begin
    readln(str);
    inc(list[str[1],str[length(str)],0].page);
    list[str[1],str[length(str)],list[str[1],str[length(str)],0].page].s:=str;
    readln(list[str[1],str[length(str)],list[str[1],str[length(str)],0].page].page);
  end;
 
  readln(n);
 
  for i:=1 to n do
  begin
    readln(str);
 
    for j:=1 to list[str[1],str[length(str)],0].page do
      if list[str[1],str[length(str)],j].s=str then
        writeln(list[str[1],str[length(str)],j].page);
  end;
  //end;
  close(input);
  close(output);
end.