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

По моему вот так.

uses crt;

const N = 10; {N - количество чисел в последовательности}

var i, p, M:integer; a:array[1 ... N] of integer;

begin

p:=1;

write ('введите число M='); readln (M);

writeln ('введите исходный массив');

for i:=1 to N do {начало цикла по кол эл }

begin

write ('a[', i,']='); readln (a[i]); {ввод эл массива}

if a[i]>M then p:=p*a[i];

end;

if M=1 then writeln (' элементов > M нет')

else writeln ('p=', p); {печать произведения}

readln

end.