program ct;

uses crt;

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

      i,n,k,dl,dc,da,dd:integer;

      S,T:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

     S:=0; T:=1;

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

   for i:=1 to n do

     begin

        if A[i] mod k=0 then 

          begin

             S:=S+A[i];

             T:=T*A[i];

          end;

        if A[i] mod 2=0 then inc(dc)

                                  else inc(dl);

        if A[i]>0 then inc(dd)

                       else inc(da);

     end;

   writeln('Tong chia het cho k la: ',S);

   writeln('Tich chia het cho k la: ',T);

   writeln('Co ',dl,' so le. Co ',dc,' so chan);

   writeln('Co ',da,' so am. Co ',dd,' so duong);

readln;

end.