найти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]

program qq;uses crt;var pr, i, n: integer; a:array[1..32] of integer;beginrandomize;writeln ('Введите количество элементов в массиве:');readln(n);for i:=1 to n do    begin    a[i]:=random(10)+1;    write (a[i], ' '); //Распечатаем массив для наглядности    end;pr:=1; //Обнулить переменную мы не можем, ибо у нас произведение. Единица же, как начальный множитель нашего произведения, его "обнулит", но качественно ни на что далее не повлияетfor i:=1 to n do    if a[i]=2*a[i+1] then  pr:=pr*a[i]; //Если выполняется условие, то умножаем уже полученное произведение на элемент массиваwriteln;writeln (pr); //выводим произведение на экранend.