uses crt;
var
  f1,f2 : text;
  i,k : integer;

begin
randomize;

assign(f1,'C:\PABCWork.NET\1.txt');
rewrite(f1);

for i:=1 to 10 do
 begin
 k := random(2001)-1000;
 writeln(f1,k);
 end;
close(f1);

assign(f2,'C:\PABCWork.NET\2.txt');
rewrite(f2);

reset(f1);

while not eof(f1) do
 begin
 readln(f1,k);
 if (k>=0) and (k mod 2=0) then
  begin
    writeln(f2,k);
  end;
end;

close(f1);
close(f2);

end.