В массиве из N элементов, заданных случайным образом из промежутка [0;50], найдите произведение всех элементов, меньших 25 (pascal abc)

Предыдущий
вопрос Следующий
вопрос

program ProductLessThan25;

var
arr: array[1..10] of integer; {заменить 10 на необходимое количество элементов массива}
i: integer;
product: integer;

begin
product := 1;

Randomize;

for i := 1 to 10 do {заменить 10 на необходимое количество элементов массива}
begin
arr[i] := Random(51); {генерация случайного числа от 0 до 50}

end;

writeln('Массив:');
for i := 1 to 10 do {заменить 10 на необходимое количество элементов массива}
writeln(arr[i]);

writeln('Произведение всех элементов, меньших 25: ', product);

end.