var f1, f2: text;
a: longint;
Begin
Assign(f1, 'baitap.dat'); reset(f1);
Assign(f2, 'sochan.dat'); rewrite(f2);
While not eof(f1) do
Begin
While eoln(f1) do readln(f1);
Read(f1, a);
If a mod 2=0 then write(f2, a, ' ');
End;
Close(f1); close(f2);
End.