Программа для формирования файла (чтобы руками не вводить):
var f:text; r:real; k:integer;
begin
Randomize;
assign(f,'input.txt');
rewrite(f);
for k:=1 to 20 do 
begin
 r:=random*10-5;
 write(f,' ',r:5:2);
 writeln(r:5:2);
 end;
close(f);
end.

Программа для решения задачи:
var f:text; r,p:real; k:integer;
begin
assign(f,'input.txt');
reset(f);
p:=1; k:=0;
while not eof(f) do
begin
read(f,r);
if r>0 then 
 begin p:=p*r; inc(k); end;
end;
close(f);
if k>0 then p:=power(p,1/k);
writeln(p);
end.