记录编号	109199	评测结果	AAAAAAAAA
题目名称	贪婪的送礼者	最终得分	100
用户昵称	NBWang	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2014-07-08 09:56:46	内存使用	0.17 MiB

var a:array [1..10] of string;
     b:array [1..10] of longint;
     np,ng,i,j,k,l,money:longint;
     s:string;
begin
assign(input,'gift1.in');
assign(output,'gift1.out');
reset(input);
rewrite(output);
readln(np);
for i:=1 to np do
readln(a[i]);
for i:=1 to np do
begin
readln(s);
readln(money,ng);
if ng<>0 then for j:=1 to np do
if a[j]=s then begin
b[j]:=b[j]+money mod ng;
b[j]:=b[j]-money;
break;
end;
if ng<>0 then for j:=1 to ng do
begin
readln(s);
for k:=1 to np do
if a[k]=s then
b[k]:=b[k]+money div ng;
end;
end;
for i:=1 to np do
writeln(a[i],' ',b[i]);
close(input);
close(output);

end.