{
LANG: PASCAL
ID: ke_ma032
PROG:gift1
}
type
  person=record
  name : string[14];
  num  : integer;
end;
var i, np, money, m, ngi, j, k, ii : integer ;
    a                              : array[1..10]of person;
    t, g                           : text;
    name                           : string;
procedure init;
begin
  assign(t,'gift1.in');
  reset(t);
  readln(t,np);
  for i:=1 to np do readln(t,a[i].name);
end;
function lookup(name:string):integer;
begin
  for i:=1 to np do
    if a[i].name=name
    then
    begin
      lookup:=i;
      exit;
    end;
end;
procedure work;
begin
  for j:=1 to np do
  begin
    readln(t,name);
    k:=lookup(name);
    readln(t,money,ngi);
    if ngi>0 then
    begin
      m:=money div ngi;
      a[k].num:=a[k].num-m*ngi;
      for ii:=1 to ngi do
      begin
        readln(t,name);
        k:=lookup(name);
        a[k].num:=a[k].num+m;
      end;
    end;
  end;
  close(t);
end;
procedure write;
begin
  assign(g,'gift1.out');
  rewrite(g);
  for i:=1 to np do
  writeln(g,a[i].name,' ',a[i].num);
  close(g);
end;
begin
  init;
  work;
  write;
end.

请家分！如果还有问题，请发：ke_ma030101jj@hotmail.com

请家分！如果有问题,请发ke_ma030101jj@hotmail.com