Нужна ! 1. заполнить массив натуральными числами 2. заполнить массив по правилу: 1 3 5 7 9 11 вводится количество элементов массива (n< 100).

1. 
var
  a: array[1..100] of integer;
  n, i: integer;
begin
  read(n);
  for i := 1 to n do a[i] := i;
  writeln('Полученный массив: ');
  for i := 1 to n do write(a[i], ' ');
end.
2.
var
  a: array[1..100] of integer;
  n, i: integer;
begin
  read(n);
  for i := 1 to n do a[i] := i * 2 - 1;
  writeln('Полученный массив: ');
  for i := 1 to n do write(a[i], ' ');
end.