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

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] gt; M then k:=k * R[i]; // проверяем, если элемент больший данного числа, то умножаем его на творенье
if k = 1 then write( таких чисел нет ) else write( творение чисел великих М = , k); //выводим ответ
end.