uses crt;
var n,i:byte;
a:array[1..255] of integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);

        {NHAP MANG}
        for i:=1 to n do

        begin
                write('NHAP PHAN TU THU ',i,':');

                readln(A[i]);

        end;

        {IN MANG}

        for i:=1 to n do write(a[i],' ');

        writeln;

        write('CAC SO CHAN:');

        for i:=1 to n do

                if a[i] mod 2=0 then write(a[i],' ');

        writeln;

        write('CAC SO LE:');

        for i:=1 to n do

                if a[i] mod 2=1 then write(a[i],' ');

        writeln;

        write('CAC SO CHIA HET CHO 3:');

        for i:=1 to n do

                if a[i] mod 3=0 then write(a[i],' ' );

        writeln;

        write('CAC SO SO VI TRI CHAN:');

        for i:=1 to n do

                if i mod 2=0 then write(a[i],' ');

        writeln;

        write('CAC SO SO VI TRI LE:');

        for i:=1 to n do

                if i mod 2=1 then write(a[i],' ');

        readln
END.

Cho mik ctlhn nha.

uses crt;

var a: array[1..1000] of integer;

i,n: integer;

begin

clrscr;

write ('nhap so phan tu cua mang: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[i]: ');  readln (a[i]);

end;

write ('cau 1: mang vua nhap la: ');

for i:=1 to n do write (a[i]:3);

writeln;

write ('cau 2: a/cac so chan chia het cho 3 la: ');

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 2=0) then write (a[i]:3);

writeln;

write ('cau 2: b/cac so le chia het cho 3 la: ');

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 2<>0) then write (a[i]:3);

writeln;

write ('cau 3: a/nhung so o vi tri chan la: ');

for i:=1 to n do if i mod 2=0 then write (a[i]:3);

writeln;

write ('cau 3: a/nhung so o vi tri le la: ');

for i:=1 to n do if i mod 2<>0 then write (a[i]:3);

readln;

end.