задать массив из 10 целых чисел. Посчитать произведение всех элементов кратных 5 и больших 8

program ryazantsev;var i,p: integer;first: boolean;a: array[1..10] of integer;beginp:=1; first:=true;for i:=1 to 10 do beginwriteln('Введите ',i,' элемент массива');readln(a[i]) //Заполнение массива числами с клавиатурыend;for i:=1 to 10 do beginif (a[i] mod 5 = 0) and (a[i]>8) then begin p:=p*a[i];first:=falseendend; if first then p:=0; //Не было ни одного числа, удовлетв. нашим условиямwriteln(p)end.