Program chuongtrinh;
ues crt;
var n,i:integer;
 a:array[1..100] of integer;
begin
      clrscr;
      Write('Nhap Vao So Nguyen n= ');readln(n);
      Writeln('Cac So Chia Het Cho 2 Vua Nhap La: ');
      For i:=1 to n do
       begin
         Write('Nhap Vao So Nguyen Thu ',i,'=');readln(a[i]);
         If a[i] mod 2=0 then Write(a[i]:3);
       end;
      readln
end.