Дан массив целых чисел от 1 до n, пусть n=15. вычислить сумму элементов с 1 по 12, и с 8 по 15, а также найти произведения этих сумм.

// сам объяви переменные , это основа программы
for i:=1 to n-3 do
 k:=k+a[i];
for i:=8 to n do
m:=m+a[i];
writeln(k*m);