Дан массив целых чисел из 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.