Вывести в программе паскаль только нечетные числа от 1 до n.

Var n,i:integer;
begin
write('n = '); readln(n);
for i:=1 to n do
 if i mod 2 <> 0 then write(i,' ');
writeln;
end.

Пример:
n = 20
1 3 5 7 9 11 13 15 17 19