program array_program;
var
  N, i, sum, count: integer;
  A: array[1..100] of integer;
begin
  write('Nhap N: ');
  readln(N);
  
  { Tạo mảng }
  for i := 1 to N do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(A[i]);
  end;
  
  { Tính tổng các số chia hết cho 2 }
  sum := 0;
  for i := 1 to N do
    if A[i] mod 2 = 0 then
      sum := sum + A[i];
  writeln('Tong cac so chia het cho 2: ', sum);
  
  { Đếm các số chia hết cho 3 và cho hết cho 5 }
  count := 0;
  for i := 1 to N do
    if (A[i] mod 3 = 0) and (A[i] mod 5 = 0) then
      inc(count);
  writeln('So luong cac so chia het cho 3 va 5: ', count);
  
  readln;
end.