Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел

program massiv1;
uses crt;
var a:array[1..100]of integer;
i,l,n:integer;
begin
clrscr;
writeln('введите кол-во элементов');
readln(n);
l:=-1;
for i:=1 to n do
begin
l:=l+2;
a[i]:=l;
write(a[i],' ');
end;
end.

program massiv1;
uses crt;
var b:array[1..100]of integer;
i,n,a,d:integer;
begin
repeat
clrscr;
writeln('введите кол-во элементов');
readln(n);
until n>1;
writeln('введите разность и первый член прогрессии');
readln(a,d);
for i:=1 to n do
begin
b[i]:=a;
write(b[i],' ');
a:=a+d;
end;
end.

program massiv3;
uses crt;
var b:array[1..100]of real;
i,n,d:integer;a:real;
begin
repeat
clrscr;
writeln('введите кол-во элементов прогрессии');
readln(n);
until n>1;
writeln('введите разность и первый член прогрессии');
readln(a,d);
repeat
i:=i+1;
b[i]:=a;
a:=a*exp(i*ln(d));
write(b[i],' ');
until i=n;
end.

uses crt;
var a:array[1..100]of integer;
i,n,f,k:integer;
begin
repeat
clrscr;
readln(n);
until n>2;
f:=0;k:=1;
for i:=1 to n do
begin
a[i]:=f;
write(a[i],' ');
f:=f+k;
k:=a[i];
end;
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Массив:');
a[1]:=1;
a[2]:=1;
write(a[1],' ',a[2],' ');
for i:=3 to n do
 begin
  a[i]:=a[i-2]+a[i-1];
  write(a[i],' ');
 end;
readln
end.