For:

uses crt;
var i,n:longint;
begin
clrscr;
   repeat write('n=');readln(n); until n>0;
   for i:=1 to n do if i mod 2=1 then writeln(i);
readln
end.

While do:

uses crt;
var i,n:longint;
begin
clrscr;
   repeat write('n=');readln(n); until n>0; i:=0;
   while i<=n do
      begin
         if i mod 2=1 then writeln(i);
         i:=i+1;
      end;
readln
end.

///////////

Giải thích:

Điều kiện: nhập cho đê khi thỏa mãn điều kiện không phải(n<=0) thì là  lớn hơn 0

Chưa đúng điều kiện thì chuong trình cho chúng ta nhập cho đến khi đúng

Số lẻ là mod mod 2=1

Program FNG;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        i:=1;
        While i<=n do
        Begin
                Write(i,' ');
                inc(i,2);
        End;
        Readln
End.