Program a2;
Crt;
Vari,N : integer;
x, S : real;
Begin
ClrScr;
readln (N);
S:=0;
i:=1;
while i<=N do
begin
readln (x);
S:=S*x;
i:=i+1;
end;
write(s);
readln;
End.
Program a2;
Crt;
Vari,N : integer;
x, S : real;
Begin
ClrScr;
readln (N);
S:=0;
i:=1;
while i<=N do
begin
readln (x);
S:=S*x;
i:=i+1;
end;
write(s);
readln;
End.