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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.