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.
Возможно я не так понял задание, но вот