var

i,n,k:integer;

s:longint;

a:array[1..32000] of integer;

begin

write(' nhap n : ');

readln(n);

write(' nhap k : ');

readln(k);

for i:= 1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod k = 0 then s:= s+a[i];

write(' tong so chia het cho k la : ',s);

readln

end.