var
 f1,f2,f3:text;
 s:string;
 i,er:integer;

begin
 assign(f1,'c:\f.dat');
 reset(f1);
 assign(f2,'c:\g.dat');
 rewrite(f2);
 assign(f3,'c:\h.dat');
 rewrite(f3);
 repeat
    readln(f1,s);
    val(s,i,er);
    if (i mod 2)=0 then writeln(f2,i)
    else writeln(f3,i);
 until eof(f1);
 close(f1);
 close(f2);
 close(f3);
end.