program so_le;
uses crt;
var f:text;
A:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
Assign(f,'songuyen.TXT'); reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
read(f,A[n]);
end;
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],' ');
close(f);
readln;
end.