дано целое число n >0 сформировать и вывести целочисленный массив размера n содержащий n первых положительных нечетных чисел
var
a : array [1..10000] of integer;
n, i : integer;
begin
writeln ('N = ');
read (n);
for i := 1 to n do
a[i] := (i - 1) * 2 + 1;
write (a[i], ' ');
end;
end.
