program xaq;

var

n,k,i,o:longint;

sum,b:array[0..500000]of int64;

mx:int64;

begin

read(n,k);

for i:=1 to n do

begin

read(o);

sum[i]:=sum+o;

inc(b[sum[i]mod k]);

end;

for i:=0 to k-1 do

mx:=mx+(b[i]*b[i]-1)shr 1;

write(mx mod 1234567);

end.

我是按照一位大牛的思路写的，为什么错了？