Заполнить одномерный массив с именем А 15-ю первыми нечётными числами и вывести его на экран(язык - паскаль)

Предыдущий
вопрос Следующий
вопрос

program OddNumbers;
var
A: array[1..15] of Integer;
i, num: Integer;
begin
num := 1;
for i := 1 to 15 do
begin
A[i] := num;
num := num + 2;
end;

for i := 1 to 15 do
begin
writeln(A[i]);
end;
end.