program baigiai;

uses crt;

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

      n,i,d1,dk:integer;

      t,k:integer;

begin

     clrscr;

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

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

     t:=0;  d1:=0;  dk:=0;

     for i:=1 to n do

          begin

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

               if A[i] mod 3=0 then t:=t+A[i];

               if A[i] mod 2=1 then d1:=d1+k;

               if A[i]=k then dk:=dk+1;

          end;

     writeln('a. Tong cac phan tu chia het cho 3 la: ',t);

     writeln('b. Co ',d1,' phan tu co gia tri le');

     writeln('c. Co ',dk,' phan tu co gia tri bang k');

     writeln('d. Cac phan tu chan cua day la: ');

     for i:=1 to n do

          if A[i] mod 2=0 then write(A[i]);

     readln;

end.