记录编号	7693	评测结果	AAAAAAAAAAAAAAAAAAAA
题目名称	沙漠赛道	最终得分	100
用户昵称	lc	是否通过	通过
代码语言	Pascal	运行时间	0.837 s
提交时间	2008-11-11 13:01:38	内存使用	0.11 MiB

program ee1;
 var
      ans:array[1..3] of double;
      n,i:longint;
      p1,p2,k1,k2,l1,l2,l3,l4,sum,sum0,sum1,dd,a,b,ave,d1,d2:double;

begin
 assign(input,'mirage.in');
 assign(output,'mirage.out');
 reset(input); rewrite(output);
 readln(l1,l2,l3,l4);
 p1:=(1-l1)*(1-l2)*(1-l3)*(1-l4);
 p2:=1-p1;
 readln(l1,l2,l3,l4);
 k1:=(1-l1)*(1-l2)*(1-l3)*(1-l4);
 k2:=1-k1;
 read(d1,d2); sum:=d1+d2;
 d1:=d1/sum; d2:=d2/sum;
 readln(n);
 ave:=1;
 for i:=1 to n do
   begin
   readln(a,b);
   if b=0 then sum0:=sum0+a
          else sum1:=sum1+a;
   ave:=ave*exp((1/n)*ln(a));
   end;
 ans[1]:=p1*k1*d1+p1*k2; ans[2]:=k1*p1*d2+k1*p2; ans[3]:=p2*k2;
 for i:=1 to 2 do
 write(ans[i]:0:2,' ');
 writeln(ans[3]:0:2);
 sum:=sum0+sum1;
 dd:=(sum-sum0*2)*ans[1]+(sum-sum1*2)*ans[2]+(sum-ave*n)*ans[3];
 writeln(dd:0:2);
 close(input); close(output);
end.