Viết chương trình xuất ra màn hình các số lẻ trong khoảng từ 1 đến n (nguyên dương nhập từ bàn phím) Mong nhận được câu trả lời từ mn!!!

program so_le;

uses crt;

var n,i:integer;

begin

     clrscr;

     write(‘Nhap n: ‘);   readln(n);

     if n<1 then write(‘Khong co’)

     else

          begin

               write(‘Cac so le tu 1 den ‘,n,’ la: ‘);

               for i:=1 to n do

                    if i mod 2=1 then write(i,’ ‘);

          end;

     readln;

end.