寻宝

前言
“我们不叫程序猿，也不叫键盘侠，我们是贱客（键客）”。欢迎来到嘟嘟课堂。今天我们讲一道很烦的题目。
题目描述
传说很遥远的藏宝楼顶层藏着诱人的宝藏。小明历尽千辛万苦终于找到传说中的这个藏宝楼，藏宝楼的门口竖着一个木板，上面写有几个大字：寻宝说明书。说明书的内容如下：
藏宝楼共有N+1 层，最上面一层是顶层，顶层有一个房间里面藏着宝藏。除了顶层外，藏宝楼另有N 层，每层M 个房间，这M 个房间围成一圈并按逆时针方向依次编号为0，…，M-1。其中一些房间有通往上一层的楼梯，每层楼的楼梯设计可能不同。每个房间里有一个指示牌，指示牌上有一个数字x，表示从这个房间开始按逆时针方向选择第x 个有楼梯的房间（假定该房间的编号为k），从该房间上楼，上楼后到达上一层的k 号房间。比如当前房间的指示牌上写着2，则按逆时针方向开始尝试，找到第2 个有楼梯的房间，从该房间上楼。如果当前房间本身就有楼梯通向上层，该房间作为第一个有楼梯的房间。
寻宝说明书的最后用红色大号字体写着：“寻宝须知：帮助你找到每层上楼房间的指示牌上的数字（即每层第一个进入的房间内指示牌上的数字）总和为打开宝箱的密钥”。
请帮助小明算出这个打开宝箱的密钥。
输入
第一行 2个整数 N和 M，之间用一个空格隔开。 N表示 除了顶层外藏宝楼共N层楼， M表示除顶层外每层楼有M个房间。

输出

样例输入
2 3
1 2
0 3
1 4
0 1
1 5
1 2
1
样例输出
5

思路
此题就是很烦的一道暴力题。很多同学第一次做这道题可能会超时是因为这道题的后50%的数据 ，x和n特别大，会超时。不能这样一个一个推。所以我们这能用mod来做此题来缩小时间。
代码

var
         a:array[1..10000,1..100,1..2] of longint;
         b:array[1..10000] of longint;
         f:array[1..10000,1..100] of boolean;
         i,j,n,m,x,l,ans:longint;
begin
        assign(input,'treasure.in');reset(input);
        assign(output,'treasure.out');rewrite(output);
        readln(n,m);
        for i:=1 to n do
        begin
                for j:=1 to m do
                begin
                        readln(a[i,j,1],a[i,j,2]);
                        if (a[i,j,1]=1) then
                        begin
                                f[i,j]:=true;
                                inc(b[i]);
                        end;
                end;
        end;
        readln(l);
        j:=l;
        inc(j);
        for i:=1 to n do
        begin
                inc(ans,a[i,j,2]);
                ans:=ans mod 20123;
                x:=a[i,j,2] mod b[i];
                if x=0 then x:=b[i];
                while x>0 do
                begin
                        if f[i,j] then
                        begin
                                dec(x);
                                if x=0 then break;
                        end;
                        inc(j);
                        if j>m then j:=1;
                end;
        end;
        writeln(ans);
        close(input);
        close(output);
end.