记录编号	79819	评测结果	MMMMMMMMMM
题目名称	eins	最终得分	0
用户昵称	5007	是否通过	未通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2013-11-06 13:07:58	内存使用	0.00 MiB

var
max,t,i,m,p,j,s:longint;
a:array [0..100000000] of int64;


begin
  assign(input,'eins.in'); reset(input);
  assign(output,'eins.out'); rewrite(output);
read(t);
a[0]:=0; a[1]:=1; a[2]:=1;
max:=2;
for i:=1 to t do
begin
 read(m,p);
 if m<=max then writeln(a[m] mod p)
 else begin
        for j:=max to m do a[j]:=a[j-1]+a[j-2];
        writeln(a[m] mod p); max:=m;
        end;
 end;
end.