Program     sochan;

uses             crt;
var                n,i:integer;
                     a:array[1..100] of integer;
begin
                     clrscr;
                     write('nhap n:');readln(n);
                     for i:=1 to n do
                     begin
                      write('a['i']=');readln(a[i]);
                     end;
                    for i:=1 to n do
                     if a[i] mod 2= then
                     writeln(a[i],' la so chan');
                     readln;
end.

chúc bạ học tốt nha :))

program oken;
uses crt;
var a: array [1..100] of integer;
    n,i:integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        write('cac so chan cua mang: ');
        for i:=1 to n do
                if (a[i] mod 2=0) then
                        write(a[i],' ');
        readln;
end.