Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập). Yêu cầu nhập lại nếu n <=0

program so_le;

uses crt;

var n,i:integer;

begin

       clrscr;

       repeat

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

              if n<=0 then writeln(‘Nhap lai!’);

       until n>0;

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

       for i:=1 to n do 

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

       readln;

end.