ĐÂY Ạ
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
end;
writeln ('cac so chan trong day: ');
for i:=1 to n do if a[i] mod 2=0 then write (a[i]:3);
writeln ('cac so le trong day: ');
for i:=1 to n do if a[i] mod 2<>0 then write (a[i]:3);
readln;
end.