procedure pares_impares;
var
   arq1, arq2, arq3 : text;
   v		    : integer;
begin
   assign(arq1, 'dados.txt'); reset(arq1);
   assign(arq2, 'pares.txt'); rewrite(arq2);
   assign(arq3, 'impares.txt'); rewrite(arq3);

   while not eof (arq1) do
   begin
      readln(arq1, v);
      if (v mod 2 = 0) then
	 writeln(arq2, v)
      else
	 writeln(arq3, v);
   end;
   close(arq1);
   close(arq2);
   close(arq3);
end;