Написать программу, осуществляющую заполнение и вывод на экран массива состоящего из 10 элементов последовательностью 1,3,5,7,... (Удвоенный порядковый номер минус 1)

for i := 1 to 10 do

  a[i] := i*2 - 1;

for i := 1 to 10

  write(a[i]);