Xuất các số chẵn, số lẻ:

program Min;
uses crt;
var A:array[1..100] of integer;
    n,i:integer;
begin
   clrscr;
   repeat
   begin
      writeln('Nhap n: '); 
      readln(n);
   end;
   until n<=100;
   for i:=1 to n do
   begin
      write('Nhap so thu ',i,': ');
      readln(A[i]);
   end;
   write('Cac so chan la: ');
   for i:=1 to n do
   if A[i] mod 2 = 0 then write(A[i]:4);
   writeln;
   write('Cac so le la: ');
   for i:=1 to n do
   if A[i] mod 2 <> 0 then write(A[i]:4);
   readln
end.

Bạn tham khảo nha :D 

uses crt;
 var a:array[1..100]of longint;
 n, s , i : longint;
  begin
   clrscr;
   repeat
   readln(n);
   until 
   n<99;
   for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
   if a[i] mod 2=0 then write(a[i]:2);
   writeln;
  for i:=1 to n do
   if a[i] mod 2=1 then write(a[i]:3);
    end.