Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n (với n được nhập vào từ bàn phím)

program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac so le nho hon hoac bang ',n,'la :');
   for i:=1 to n do if i mod 2 = 1 then write(i:4);
   readln
end.