Напишите, пожалуйста,программы с массивами. Очень нужно. Буду благодарен(1 и 6 задачи)

1.vara:array [1..10] of integer;d,i:integer;beginwrite('Первый элемент: ');readln (a[1]);write('Разность: ');readln (d);for i:= 2 to 10 doa[i]:= a[i-1]+d;writeln(a)end.Пример:Первый элемент: 1Разность: 2[1,3,5,7,9,11,13,15,17,19]Арифмети́ческая прогрессия - последовательность чисел (членов прогрессии), каждое из которых, начиная со второго, получается из предыдущего добавлением к нему постоянного числа d≠0 (шага или разности прогрессии). 6.vara:array [1..10] of integer;i,k1,k2:integer;beginfor i:= 1 to 10 doa[i]:= Random(20,100);writeln(a);for i:=1 to 10 doif a[i] mod 2 = 0 then k1:=k1+1else k2:=k2+1;writeln('Чётных элементов: ',k1);writeln('Нечётных элементов: ',k2)end.Пример:[33,68,77,90,79,50,60,62,60,86]Чётных элементов: 7Нечётных элементов: 3