var f,g:text;
A:array[1..1000] of integer;
n,k,i,d:integer;
begin
Assign(f,'dayso.txt');
Assign(g,'ketqua.txt'); rewrite(g);
{$I-} reset(f); {$I+}
if IOresult<>0 then
begin
rewrite(f);
reset(f);
end;
readln(f,n,k);
d:=0;
for i:=1 to n do
begin
readln(f,A[i]);
if A[i] mod k=0 then inc(d);
end;
writeln(g,d);
close(f); close(g);
end.