Составьте пожалуйста массивы, хотя бы один

1.В массиве d1, d2, …, d30 найти произведение чисел, исключая
первый и последний элемент.




2.Даны три последовательности чисел: а1, а2, ..., а8;
b1, b2, ..., b8; с1, с2 , ..., с8. Составить новую последовательность, в
которой чередовались бы числа всех трех последовательностей, т.е. d1 = a1;
d2=b1; d3 = c1; d4 = a2; d5 = b2; d6 = c2.

первое задание:var d: array [1..30] of integer;i,s:integer;beginfor i:=1 to 30 doreadln d[i];s:=1;for i:=2 to 29 do s:=s*d[i];writeln(s)end.