Nhập mảng A gồm N phần tử (N<=10) . Nhập thêm phần tử K vào mảng và đếm xem trong mảng có bao nhiêu số chia hết cho K và tổng của chúng. Đưa kết quả ra màn hình

Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i,dem,s:longint;
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(a[n+1]);
        For i:=1 to n do
        Begin
                If a[i] mod a[n+1]=0 then
                Begin
                        write(a[i],' ');
                        dem:=dem+1;
                        s:=s+a[i];
                end;
        end;
        writeln;
        writeln('Co ',dem,' so chia het cho ',a[n+1]);
        writeln('Tong cac so chia het cho ',a[n+1],' la: ',s);
        readln;
end.