program ct;
uses crt;
var i,n:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
write('Cac so nguyen duong tu 1 den ',n,' la le: ');
for i:=1 to n do
if i mod 2<>0 then write(i:3);
writeln;
write('Cac so nguyen duong tu 1 den ',n,' la chan: ');
for i:=1 to n do
if i mod 2=0 then write(i:3);
readln;
end.
Học tốt!