//Задание 2.98 Кучеренко

Begin
  var AU: array[0..100] of real;
  var n: integer;
  
  write('Vvedite kol-vo elementov massiva: ');
  readln(n);
  
  var i: integer;
  var mult: real;
  mult := 1;
  
  for i := 0 to n - 1 do
  begin
    write('AU[', i + 1, ']=');
    readln(AU[i]);
    if AU[i] > 0 then
    begin
      mult := mult * AU[i];
    end;
  end;
  
  var geom: real;
  geom := exp(ln(mult) * 1 / n);
  
  writeln('Srednee geom polozhit chisel = ', geom);
end.