Дано 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]gt;10 then p:=p*a[i]; //проверяем, если число больше 10, то умножаем его на p и приобретенное творение записываем в переменную р

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