viết chương trình nhập vào 1 dãy số in ra dãy các số chẵn " .......................................................................................'' lẻ

In ra dãy các số chẵn:

uses crt;
var a:array[1..1000] of integer;
    i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
   begin
     write('Nhap phan tu thu ',i,': ');
     readln(a[i]);
   endl;
   for i:=1 to n do if i mod 2 = 0 then write(a[i]:4);
   readln
end.

In ra dãy các số lẻ:

uses crt;
var a:array[1..1000] of integer;
    i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
   begin
     write('Nhap phan tu thu ',i,': ');
     readln(a[i]);
   endl;
   for i:=1 to n do if i mod 2 = 1 then write(a[i]:4);
   readln
end.

uses crt;
var arr:array[1..100]of longint;
    n,i:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(arr[i]);
    for i:=1 to n do
        if arr[i] mod 2=0 then write(arr[i],' ');
readln;
end.

uses crt;
var arr:array[1..100]of longint;
    n,i:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(arr[i]);
    for i:=1 to n do
        if arr[i] mod 2=1 then write(arr[i],' ');
readln;
end.