Цикличный алгоритм

rez:=1;
for i:=1 to n do begin
rez:=rez*chislo
end;

p:=1;
for i:=1 to n do begin
p:=p*(1+procfync(massiv[i],n));//ну тут по желанию процедуро-функцыональ и ее запись
end;

uses crt;
{напишем свою функцию для возведения вещественного числа в натуральную степень
стандартное y=exp(ln(x)*n) для отрицательных х не работает, все равно надо писать уточнение в ней}
function Pow(x:extended;k:integer):extended;{числа могут быть очень большие и очень маленькие, определим тип extended
если будет выдавать ошибку, то в Opction  компилятора  на вкладке Compiler.. поставить крестик против 8087/80287}
var s:extended;
    i:integer;
begin
s:=1;
for i:=1 to k do
s:=s*x;
Pow:=s;
end;
var a:array[1..100] of extended;
    n,i:byte;
    P:extended;
begin
clrscr;
randomize;
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-3;
  write(a[i]:5:2);
 end;
writeln;
P:=1;
for i:=1 to n do
P:=P*(1+Pow(a[i],n));
write('P=',P:0:2);
readln
end.

P:=1;
for i:=1 to n do
begin
  write('a=');
  readln(a);
  P:=P*(1+Pow(a,n));
write('P=',P:0:2);
readln
end.

p:=1;
for i:=1 to n do
 begin
  writeln('vvedite a',i);
  readln(chislo);
  p:=p*(1+procfync(chislo,n));//ну тут по желанию процедуро-функцыональ и ее запись
 end;

var
 n, i: integer;
 a, P: real;
Begin
 write('n= ');
 readln(n);
 P:=1;
 For i:=1 to n do
  Begin
   write('a',i,'= ');
   Readln(a);
   P:=P*(1+(exp(ln(a)*n)));
  End;
 Write('P= ',P:3:2);
End.