Дана последовательность из N положительных чисел, вычислить среднее геометрическое этих чисел — Pascal(Паскаль)

uses crt;
var n,i: integer;
res, L:real;
A: array [1..100] of integer;
Begin
writeln ( ' vvedite cheloe pologitelnoe chislo');
readln (n);
writeln('vvedite' ,n,' chisel');
for i:=1 to n do
readln(a[i]);
L:=1;
 for i:=1 to n do
L:=L*A[i];
res:=exp(ln(l)/n);
writeln('crednee geometricheskoe etix chisel ',res)  ;
readkey;
end.