gift1

对于一群要互送礼物的朋友，你要确定每个人收到的礼物比送出的多多少(and vice versa for those who view gift giving with cynicism)。

在这一个问题中，每个人都准备了一些钱来送礼物，而这些钱将会被平均分给那些将收到他的礼物的人。 然而，在任何一群朋友中，有些人将送出较多的礼物(可能是因为有较多的朋友)，有些人有准备了较多的钱。

给出一群朋友， 没有人的名字会长于 14 字符，给出每个人将花在送礼上的钱，和将收到他的礼物的人的列表，请确定每个人收到的比送出的钱多的数目。

格式

PROGRAM NAME: gift1

INPUT FORMAT:

(file gift1.in)

第 1 行: 人数NP,2<= NP<=10

第 2到 NP+1 行:这NP个在组里人的名字　一个名字一行

第NP＋2到最后：

这里的NP段内容是这样组织的：

第一行是将会送出礼物人的名字。

第二行包含二个数字:　第一个是原有的钱的数目（在0到2000的范围里），第二个 NG_i 是将收到这个送礼者礼物的人的个数 如果 NG_i 是非零的, 在下面 NG_i 行列出礼物的接受者的名字，一个名字一行。

OUTPUT FORMAT:

(file gift1.out)

输出 NP 行

每行是一个的名字加上空格再加上收到的比送出的钱多的数目。

对于每一个人，他名字的打印顺序应和他在输入的2到NP＋1行中输入的顺序相同。所有的送礼的钱都是整数。

每个人把相同数目的钱给每位要送礼的朋友，而且尽可能多给，不能给出的钱被送礼者自己保留。

IMPORTANT NOTE:

测试系统是 Linux 符合标准的 Unix 的协定。 用'\n'作为行的结束。这和　Windows 系统用'\n' 和 '\r'作为行的结束是不同的。 你的程序不要被这困住了。

 SAMPLE INPUT

5
dave
laura
owen
vick
amr
dave
200 3
laura
owen
vick
owen
500 1
dave
amr
150 2
vick
owen
laura
0 2
amr
vick
vick
0 0

program gift1;
var
  name1:string;
  i,j,n,man:integer;
  a:array[1..10]of string;
  give,get:array[1..11]of longint;
  money,givenum:longint;
  c:char;

function getnum(s:string):integer;
var
 i:integer;
begin
     for i:=1 to n do
     if a[i]=s then exit(i);
end;

begin
    assign(input,'gift1.in'); reset(input);
    assign(output,'gift1.out'); rewrite(output);

    readln(n);
    fillchar(get,sizeof(get),0);
    for i:=1 to n do readln(a[i]);
    readln(name1);
    while name1<>'' do
    begin
      man:=getnum(name1);
      readln(money,givenum);

      if givenum <> 0 then give[man]:=money-(money mod givenum) else
                         give[man]:=0;
      for i:=1 to givenum do
       begin
        readln(name1); man:=getnum(name1);
        if givenum<>0 then get[man]:=get[man]+(money div givenum);
       end;
      readln(name1);
    end;

    for i:=1 to n do writeln(a[i],' ',get[i]-give[i]);
    close(input);
    close(output);
end.

 

 SAMPLE OUTPUT

dave 302
laura 66
owen -359
vick 141
amr -150