program so_chan;

uses crt;

var B:array[1..100] of integer;

      n,i,d:byte;

begin

      clrscr;

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

      d:=0;

      for i:=1 to n do

            begin

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

                  if B[i] mod 2=0 then d:=d+1;

            end;

      write('Mang B la: '); 

      for i:=1 to n do write(B[i],' ');

      writeln;

      if d=0 then write('Khong co so chan')

      else

            begin

                  write('Cac so chan la: ');

                  for i:=1 to n do

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

            end;

      readln;

end.

uses crt;
var B:array[1..100] of integer; n,i:integer;
begin
 clrscr;
 write('Nhap so luong phan tu: '); readln(n);
 for i:=1 to n do
  begin
   write('Phan tu thu ',i,': '); readln(B[i]);
  end;
 write('Day so ban vua nhap: ');
 for i:=1 to n do write(B[i],' ');
 writeln;
 if B[i] mod 2=0 then
  begin
   write('Cac phan tu chan: ');
   for i:=1 to n do if B[i] mod 2=0 then write(B[i],' ');
  end
 else write('Day so ban vua nhap khong co so chan');
 readln;
end.