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

program nat;
var a: array[1..10] of integer;
N, i: integer;
begin
    write('Введите N: ');
    readln(N);
    a[1] := 1;
    for i := 2 to N do 
        a[i] := a[i - 1] + 2;
    for i := 1 to N do
        write(a[i],' ')
end.