Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа m. на языке паскаль

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

program Product;
var
m, n, number, product: integer;
begin
write('Enter a number: ');
readln(m);

product := 1;

write('Enter the length of the sequence: ');
readln(n);

for var i := 1 to n do
begin
write('Enter number ', i, ': ');
readln(number);

end;

writeln('The product of numbers greater than ', m, ' is ', product);
end.