program Tinhtongcacsochan;
var
  A: array[1..250] of Integer; // Mảng A có tối đa 250 phần tử
  N, i, sum: Integer;
begin
  Write('Nhap so phan tu cua day A (N <= 250): ');
  Readln(N);
  
  // Nhập dãy số A
  for i := 1 to N do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    Readln(A[i]);
  end;
  
  // Tính tổng các số chẵn trong mảng A
  sum := 0;
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 0) then // Nếu phần tử A[i] chẵn
      sum := sum + A[i]; // Cộng A[i] vào tổng
  end;
  
  // Hiển thị tổng các số chẵn trong mảng A
  Writeln('Tong cac so chan trong day A la: ', sum);
  Readln; // Dừng chương trình để xem kết quả
end.