program mang_chan;

uses crt;

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

      n,i: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 ton do

         begin

                  write('A[',i,']='); readln(A[i]);

         end;

         write('Cac so chan trong mang: ');

         for i:=1 to n do

              if A[i] mod 2=0 then write(A[i],'  ');

         readln

End.

uses crt; 

var

A:array[1..10000] of longint;

i,n:integer;

begin

write('Nhap n'); readln(n);

for i:=1 to n do

begin

write('A[',i,']'); readln(A[i]);

if A[i] mod 2 = 0 then write(A[i]);

end;

readln;

end.