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

Uses crt;
var a:array[1..30] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 30 do begin   
a[i]:=random(10)+1;   
write(a[i]:3);   
end;
k:=1;
for i:=2 to 29 do   
k:=k*a[i];
writeln;
write(k);
end.