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

program zz1;

const n=5; / /вводим заданное число n

var i:integer;

p:real;

a:array[1 ... n] of real;

begin

for i:=1 to n do / /вводим вещественные числа через пробел в строку

read (a[i]);

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

for i:=1 to n do

if a[i]>10 then p:=p*a[i]; / /проверяем, если число больше 10, то умножаем его на p и полученное произведение записываем в переменную р

write (p); / /выводим ответ на экран

end.