program SumOfEvenNumbers;

var
  n, i, sum: integer;
  numbers: array of integer;

begin
  // Nhập số lượng phần tử
  write('Nhập số lượng phần tử: ');
  readln(n);

  // Khởi tạo mảng số nguyên với n phần tử
  SetLength(numbers, n);

  // Nhập các phần tử từ bàn phím
  for i := 0 to n - 1 do
  begin
    write('Nhập phần tử thứ ', i + 1, ': ');
    readln(numbers[i]);
  end;

  // In các số chẵn và tính tổng các số chẵn
  sum := 0;
  writeln('Các số chẵn là:');
  for i := 0 to n - 1 do
  begin
    if numbers[i] mod 2 = 0 then
    begin
      writeln(numbers[i]);
      sum := sum + numbers[i];
    end;
  end;

  // In tổng các số chẵn
  writeln('Tổng các số chẵn là: ', sum);

  // Đợi người dùng nhấn Enter để kết thúc chương trình
  readln;
end.