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