написать прогрумму, которая заменяет массив А нечетными натуральными числами от 1 до N (N вводится с клавиатуры)

var  i,n:integer;  a:array[1..1000]of integer;beginreadln(n);i:=1;while i<=n do  begin  a[i]:=i;  write(a[i],' ');  i:=i+2;  end;end.