Дан массив X(N). отыскать произведение тех частей массива значения которых заключены

program zz1;
const n = 6; //задаем количество частей в массиве
var i, s, a, b:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
write( введите а и b );
read(a, b);
for i:=1 to n do // записываем в массив числа случайным образом
m[i]:=random(46);
for i:=1 to n do //выводим массив на экран
write(m[i], );
writeln;
s:=1;
for i:=1 to n do // проверяем, если элемент массива удовлетворяет данным условиям, то умножаем его на произведение
begin if (m[i] gt; a) and (m[i] lt; b) and ((m[i] mod 3 =0) or (m[i] mod 5 = 0)) then s:=s * m[i]; end;

write( творенье данных частей = , s); // выводим ответ
end.