nhập n và dãy a1 a2... AN và số nguyên k. hãy đếm và tính tổng các số là bội của k

program boi_so;

uses crt;

var A:array[1..1000] of integer;

     n,i,k,d,t:integer;

begin

      clrscr;

      write('Nhap N: ');  readln(n);

      for i:=1 to n do

            begin

                  write('A[',i,']= ');   readln(A[i]);

            end;

      write('Nhap k: ');   readln(k);

      d:=0;  t:=0;

      for i:=1 to n do

            if A[i] mod k=0 then

                  begin

                        d:=d+1;

                        t:=t+A[i];

                  end;

      writeln('Co ',d,' so la boi cua ',k);

      writeln('Tong cua chung la: ',t);

      readln;

end.

uses crt;
var a: array[1..100] of integer;
k,i,n,t,dem:integer;
begin
clrscr;
write('nhap n: ');  readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']= ');   readln(a[i]);
end;
write('nhap k: ');   readln(k);
for i:=1 to n do
if a[i] mod k=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('co ',dem,' so trong day la boi cua ',k);
writeln('tong cua day boi la: ',t);
readln;
end.