Срочно! Нужна помощь!!!
1. Заполнить массив натуральными числами 12345.....
2. Заполнить массив по правилу:1 3 5 7 9 11 13.....
Вводится количество элементов массива (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.