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

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