program so_le; uses crt; var n,i:integer; begin clrscr; repeat write('Nhap n: '); readln(n); if n<=0 then writeln('Du lieu sai.(n>0). Nhap lai.'); until n>0; write('Cac so le nho hon hoac bang ',n,' la: '); for i:=1 to n do if i mod 2=1 then write(i,' '); readln; end.
program Hello; uses crt; var n,i:integer; begin while n<=0 do begin clrscr; write('n = '); readln(n); end; write('Cac so <= ', n, ': '); for i := 1 to n do if i mod 2 <> 0 then write(i,' ') end.
