Const
 N=5;
Type
 Ar=Array[1..N] of Real;
Var
 A:Ar;
 i:Byte;
 G:Real;

Function GMean(Ng:Byte;Ag:Ar):Real;
Var
 j:Byte;
 P,GM:Real;
 b:boolean;
begin
 b:=false;
 j:=0;
 Repeat
  Inc(j);
  If Ag[j]<=0 then b:=true;
 Until b or (j=Ng);
 If b then GM:=0
 else
  begin
   P:=1;
   for j:=1 to Ng do
    P:=P*Ag[j];
   GM:=Exp(Ln(P)/Ng);
  end;
 GMean:=GM;
end;

BEGIN
 For i:=1 to N do
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
  End;
 Writeln;
 Writeln;
 G:=GMean(N,A);
 If G=0 then
  Writeln('The geometric mean does not exist!')
 else
  Writeln('Geometric mean is ',G:0:5);
 Readln
END.