var

r,s,n,i,j,k:longint;
sr,m:array [1..11] of longint;
py:array [1..11] of longint;
a,man:array [1..11] of string;
name:array [1..5,1..5] of string;
{f:text;}
begin
fillchar(sr,sizeof(sr),0);
fillchar(m,sizeof(m),0);
fillchar(py,sizeof(py),0);
{ assign(f,'f:\ai.in');}
{reset(f);}
readln({f,}n);
r:=1;
for i:=1 to n do readln({f,}a[i]);
for i:=1 to n do
begin
readln({f,}man[i]);
read({f,}m[i]);
readln({f,}py[i]);
for j:=1 to py[i] do
begin
readln({f,}name[r,j]);

end;
inc(r);
end;

for r:=1 to n do
for k:=1 to n do
for j:=1 to n do

begin
while m[r]<>0 do
if name[r,k]=man[j] then
begin
sr[r]:=sr[r]-(m[r] div py[r]);
sr[j]:=sr[j]+(m[r] div py[r]);
break;
end
else
begin
break;
end;

end;

for i:= 1 to n do

writeln(man[i],' ',sr[i]);
end;
end;
end.

为什么会这样- - 过不去是为啥

测试数据 #0: Accepted, time = 0 ms, mem = 836 KiB, score = 10
测试数据 #1: Accepted, time = 0 ms, mem = 836 KiB, score = 10
测试数据 #2: Accepted, time = 0 ms, mem = 836 KiB, score = 10
测试数据 #3: WrongAnswer, time = 15 ms, mem = 836 KiB, score = 0
测试数据 #4: Accepted, time = 0 ms, mem = 832 KiB, score = 10
测试数据 #5: Accepted, time = 0 ms, mem = 836 KiB, score = 10
测试数据 #6: WrongAnswer, time = 0 ms, mem = 836 KiB, score = 0
测试数据 #7: WrongAnswer, time = 0 ms, mem = 836 KiB, score = 0
测试数据 #8: WrongAnswer, time = 0 ms, mem = 832 KiB, score = 0
测试数据 #9: WrongAnswer, time = 0 ms, mem = 836 KiB, score = 0