uses crt;
var d:text; n,k,i,j,t,dem:longint; a:array[1..100000]of longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n,k);
for i:=1 to n do readln(d,a[i]);
close(d);
assign(d,'output.pas');rewrite(d);
for i:=1 to n do
begin
t:=0;
for j:=i to n do
begin
t:=t+a[j];
if t mod k=0 then inc(dem);
end;
end;
writeln(d,dem);
close(d);
readln
end.