Дана последовательность целых чисел A1, A2, ..., An. Составьте программу, которая

program zz1;
const n = 7; // задаем количество элементов в массиве
R:array [1..n] of integer=( 4, -1, 5, 6, -7, 9, -6 ); // задаем последовательность чисел
var i, k, m:integer; // задаем переменные целого типа
begin
k:=1; m:=0;// задаем изначальное значение для творения и суммы
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
begin
if i mod 2 = 1 then k:=k * R[i]; // проверяем, если индекс нечетный, то умножаем элемент на творение
if i mod 2 = 0 then m:=m + R[i]; // проверяем, если индекс четный, то добавляем элемент в сумму
end;
write( разность произведения и суммы = , k - m); // выводим ответ
end.