uses crt;

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

i, N, M, d, S, S1 : integer;

begin

clrscr;

d := 0; S := 0; S1 := 0;

write('Nhap so N, M = '); readln(N, M);

writeln('Nhap day so gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(A[i]);

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

        if A[i] mod 2 <> 0 then d := d + 1;

        if i <= M then S1 := S1 + A[i];

    end;

writeln('a) ', d ,' so le');

writeln('b) ', S);

writeln('c) M = ', M ,' : ', S1);

readln

end.

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

          i, le, S1, S2: integer;

Begin

          Write(' Nhap N: '); Readln(N);

          Write('nhap day so nguyen: '); Readln(A); 

          Write('nhap M: '); Readln(M);

          le:= 0; S1:= 0; S2:= 0;

          For i:= 1 to N do 

          begin

                    If A[i] mod 2 =1 then le:= le+1;

                    If A[i] mod 3 =0 then S1:= S1+A[i];

                    If i<=M then S2:= S2 +A[i];

          end;

          Writeln('Co ',le,' so le trong day');

          Writeln('Tong cac so chia het cho 3: ',S1);

          Writeln('Tong cua ',M,' so dau tien cua day: ',S2);

          Readln;

End.