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

uses crt;

var i,n:integer;

BEGIN

        clrscr;

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

        while n<=0 do

        begin

                clrscr;

                writeln(‘Nhap sai,vui long nhap lai!’);

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

        end;

        write(‘Cac so le <=n la:’);

        for i:=1 to n do

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

        readln

END.

Xin ctlhn!