Nhập vào một dãy và số k , cho biết có bao nhiêu số chia hết cho k ?

Program tuyban;

uses crt; Var a: array[1..100] of integer;

i,D,k,n : integer;

Begin

clrscr;

D:=0;

writeln(‘ nhap so so trong day so’,n);

readln( n);

For i:=1 to n do

Begin

write(‘a[‘,i,’]’) ;

readln(a[i] );

end;

writeln(‘nhap k’,k) ; readln(k);

For i:=1 to n do

begin

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

writeln(‘so so chia het cho k la’,D):

end;

readln

End.