uses crt;
var f:text; i,n:longint; a:array[1..10000000]of longint;
begin
clrscr;
   assign(f,baitap.inp');reset(f);
      while not(eof(f)) do 
         begin inc(n); readln(f,a[n]); end;
   close(f);
   assign(f,'baitap.out');rewrite(f);
      write(f,'Cac so chan: ');
      for i:=1 to n do 
         if a[i] mod 2=0 then write(f,a[i],' '); writeln(f); 
      write(f,'Cac so le: ');
      for i:=1 to n do 
         if a[i] mod 2=1 then write(f,a[i],' '); 
   close(f); 
end. 

program bai_giai;
var f,g:text;
    n:integer;
begin
    Assign(f,'baitap.inp');  reset(f);
    Assign(g,'baitap.out');  rewrite(g);
    while not eof(f) do
        begin
            readln(f,n);
            if n mod 2=0 then writeln(g,n);
        end;
    close(f); close(g);
end.

Bài trên là số chẵn, nếu là số lẻ thì n mod 2=1 nha