program so_chan;

uses crt;

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

      n,i:integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       for i:=1 to n do

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

       readln;

end.

Program so_chan;

Var A:array[1..100] of integer;

      n,i: integer;

Begin

    Write('Nhap n: ');Readln(n);

       For i:=1 to n do

        Begin

            Write('Nhap A[',i,']= '); readln(A[i]);

         End;

       For i:=1 to n do

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

       Readln;

End.