Срочно! Нужна помощь!!!1. Заполнить массив естественными числами 12345.....2. Заполнить

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.