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

Program qq;

uses crt;

var pr, i, n: integer; a:array[1 ... 32] of integer;

begin

randomize;

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.