program mang_so_nguyen;

var
  mang: array[1..10] of integer;
  i: integer;
  
begin
  // Nhập giá trị cho 10 phần tử
  writeln('Nhap gia tri cho 10 phan tu:');
  for i := 1 to 10 do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(mang[i]);
  end;
  
  // In ra màn hình giá trị 10 phần tử đã nhập
  writeln('Gia tri 10 phan tu da nhap:');
  for i := 1 to 10 do
    write(mang[i], ' ');
  writeln;
  
  // In ra các số chẵn trong dãy số
  writeln('Cac so chan trong day so:');
  for i := 1 to 10 do
    if (mang[i] mod 2 = 0) then
      write(mang[i], ' ');
  writeln;
end.