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

Program ryazantsev;

var i, p: integer;

first: boolean;

a: array[1 ... 10] of integer;

begin

p:=1; first:=true;

for i:=1 to 10 do begin

writeln ('Введите ', i,' элемент массива') ;

readln (a[i]) / / Заполнение массива числами с клавиатуры

end;

for i:=1 to 10 do begin

if (a[i] mod 5 = 0) and (a[i]>8) then begin p:=p*a[i];

first:=false

end

end;

if first then p:=0; / / Не было ни одного числа, удовлетв. нашим условиям

writeln (p)

end.