uses crt;
var f:text; i,n,k,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
   assign(f,'input.txt');reset(f);
      readln(f,n);
      for i:=1 to n do read(f,a[i]);
      write('Nhap k: ');readln(k);
   close(f);
   assign(f,'ketqua.txt');rewrite(f);
      for i:=1 to n do 
         if a[i] mod k=0 then inc(d);
      writeln(f,d);
   close(f); 
end. 

program bai_giai;
uses crt;
var f,g:text;
    A:array[1..10000] of longint;
    n,i,k,d:longint;
begin
    clrscr;
    Assign(f,'input.txt');  reset(f);
    Assign(g,'ketqua.txt');  rewrite(g);
    write('Nhap k: ');  readln(k);
    readln(f,n);
    d:=0;
    for i:=1 to n do
        begin
            read(F,A[i]);
            if A[i] mod k=0 then d:=d+1;
        end;
    write(g,d);
    close(f); close(g);
end.