uses crt;
var N:byte;
    A:array[1..10] of integer;
    K,i,tong,dem:integer;
begin
   clrscr;
   write('Nhap N: '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   writeln('Nhap phan tu K: '); readln(K);
   tong:=0;
   for i:=1 to N do
   if A[i] mod K = 0 then
   begin
      inc(dem);
      tong:=tong+A[i];
   end;
   writeln('Co ',dem,' phan tu trong mang chia het cho ',K);
   writeln('Tong cua chung la: ',tong);
   readln
end.

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,k,dem,tong:longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(n);
        dem:=0; tong:=0;
        for i:=1 to n do
                begin
                        write('A[',i,']: '); readln(a[i]);
                end;
        write('Nhap so k: '); readln(k);
        for i:=1 to n do
                if a[i] mod k=0 then
                        begin
                                dem:=dem+1;
                                tong:=tong+a[i];
                        end;
        writeln('Trong mang co ',dem,' so chia het cho ',k);
        writeln('Tong=',tong);
        readln;
end.