uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then
begin
writeln('cac so le trong khoang tu 0 toi ',n,' la:');
for i:=0 to n do
if i mod 2=1 then write(i:4);
end
else writeln('vui long nhap lai');
readln;
end.