<span>. (Удвоенный порядковый номер минус 1)</span>
for i := 1 to 10 do
a[i] := i*2 - 1;
for i := 1 to 10
write(a[i]);