Дан массив из 30-ти чисел. Найти произведение всех чисел, которые больше заданного числа Р.

(Паскаль)

Program pr1;

uses crt;

var

n:byte; / / Размерность массива

i:byte; / / Счетчик массива

a:array[1 ... 30] of real; / / Массива чисел

P:real; / / Произведение чисел

Begin

clrscr;

write ('Введите размерность массива: ') ;

readln (n) ;

writeln ('Введите ', n,' элементов') ;

/ / Блок ввода

for i:=1 to n do

readln (a[i]) ;

/ / Блок вывода

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

for i:=1 to n do

write (a[i]:6:1,' ') ;

writeln;

readln;

/ / Блок инициализации

P:=1;

for i:=1 to n do

if (a[i]>P) then

P:=P*a[i];

readln;

writeln ('P = ', P) ;

End.

Возможно я не так понял задание, но вот