Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет, то выдать сообщение об этом. Нужно решить в Паскале с помощью линейных массивов

program zz1;

const n = 7; / / задаем количество элементов в массиве

R:array [1 ... n] of integer = (12, 12, 49, 16, 4, 33, 94); / / задаем последовательность чисел

var i, k, M:integer; / / задаем переменные целого типа

begin

write (' Введите заданное число М '); / / вводим с клавиатуры заданное число

read (M);

k:=1; / / задаем начальное значение для произведения

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

if R[i] > M then k:=k * R[i]; / / проверяем, если элемент больший заданного числа, то умножаем его на произведение

if k = 1 then write (' таких чисел нет ') else write (' произведение чисел больших М = ', k); / /выводим ответ

end.