1. Сформируйте и выведите целочисленный массив содержащий N первых положительных четных (нечетных) чисел
2. Сформируйте и выведите целочисленный массив содержащий степени двойки от первой до 16-й : 2,4,8,16,32 ....

{1}const n = 10; {количество чисел} d = true; {true - для четных, false - для нечетных}var a : array [1..n] of integer; i : integer;begin if d then   a[1] := 2 else   a[1] := 1; write(a[1],' '); for i := 2 to n do   begin   a[i] := a[i-1] + 2;   write(a[i],' ')   endend.{2}const n = 16;var a : array [1..n] of integer; i : integer;begin a[1] := 2; write(a[1],' '); for i := 2 to n do   begin   a[i] := a[i-1] * 2;   write(a[i],' ')   endend.