Дан массив целых чисел из 12 элементов. к сумме первых 8 прибавить произведение последних 7 элементов.

Var a: array[1..12] of integer;
i,s,p :integer;
begin
for i:=1 to 12 do read (a[i]);
s:=o; p:=1;
for i:=1 to 8 do s:=s+a[i];
for i:=6 to 12 do p:=p*a[i];
write('Искомый результат = ', s+p);
end.