Сделать из pascal abc точнее array 1 где сказано: дано целое число n(> 0). сформировать и вынести целочисленный массив размера n, содержащий n первых положительных нечетных чисел: 1, 3, 5,

Var a:array[1..100] of integer; i,n:integer;
begin
a[1]:=1;
writeln('Введите n - количество элементов');
read(n);
for i:=2 to n do
a[i]:=a[i-1]+2;
writeln('Полученный массив:');
for i:=1 to n do
writeln(a[i]);
end.