program zada4a;
uses crt;
var n:integer;
    i:byte;
x:array[1..100] of integer;
s:real;
begin
clrscr;
writeln('vvedite n=');
readln(n);
s:=1;
for i:=1 to n do
begin
writeln('vvedite zna4enie');
readln(x[i]);
end;
for i:=1 to n do
s:=s*x[i];
s:=exp(sqrt(abs(s)));
writeln('s=',s:3:2);
readln;end.