Заполнить массив случайными числами из промежутка (1-100) и определить в массиве w[1..30]произведение нечётных чисел кратных 5

Var i,pr:integer;
w:array[1..30] of integer;
begin
pr:=1;
for i:=1 to 30 do begin
w[i]:=random(101);
if (w[i] mod 2<>0) and (w[i] mod 5=0) then pr:=pr*w[i];
end;
writeln(pr);
end.