uses crt;
var i:integer;
a: array[1..30] of integer;
begin
clrscr;
for i:=1 to 30 do 
begin
write('nhap so thu ',i,': '); readln(a[i]);
end;
write('cac so chan trong day la: ');
for i:=1 to 30 do 
if a[i] mod 2 = 0 then write(a[i]:4);
writeln;
write('cac so le trong day la: ');
for i:=1 to 30 do 
if a[i] mod 2 <> 0 then write(a[i]:4);
readln;
end.

uses crt;

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

i: integer;

begin

clrscr;

for i:=1 to 30 do readln (a[i]);

for i:=1 to 30 do 

if a[i] mod 2=0 then writeln (a[i],' la so chan')

else writeln (a[i],' la so le');

readln;

end.

$#Trumtinhoc$