记录编号	142208	评测结果	AAAAAAAAAA
题目名称	[NOIP 2012]寻宝	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	1.250 s
提交时间	2014-12-06 18:08:45	内存使用	7.91 MiB

var
n,m,a,b,ans,w,d:longint;
f:array[1..10000,0..100,1..2]of longint;
c:array[1..10000]of longint;
begin
assign(input,'treasures.in');
assign(output,'treasures.out');
reset(input);
rewrite(output);
read(n,m);
for a:=1 to n do
for b:=0 to m-1 do
  begin
  read(f[a,b,1],f[a,b,2]);
  c[a]:=c[a]+f[a,b,1];
  end;
read(w);
for a:=1 to n do
  begin
  ans:=(ans+f[a,w,2]) mod 20123;
  d:=f[a,w,2];
  while f[a,w,1]=0 do w:=(w+1) mod m;
  d:=(d-1) mod c[a];
  while d<>0 do
    begin
    w:=(w+1) mod m;
    d:=d-f[a,w,1];
    end;
  {writeln(w);}
  end;
writeln(ans);
close(input);
close(output);
end.