Дан целочисленный массив d из 16 элементов, найти сумму первых восьми элементов массива и произведение оставшихся восьми элементов

Const n:=16;
var
d:array[1..n] of integer;
i,a,c:integer;
begin
a:=0;
c:=1;
for i:=1 to n do
readln(d[i]);
for i:=1 to 8 do
a:=a+d[i];
for i:=9 to 16 do
c:=c*d[i];
writeln(a);
writeln(c);
end.