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

program bing;
var
 f1,f2:text;
 a,b,c,a1,b1,a2,b2:double;
 s,s1,s2,s3:double;
 n,m:longint;
procedure init;
var
 i,j:longint;
begin
 assign(f1,'mirage.in');reset(f1);
 assign(f2,'mirage.out');rewrite(f2);
 a1:=1;b1:=1;
 for i:=1 to 4 do
  begin
   read(f1,a);
   a1:=a1*(1-a);
  end;
 for i:=1 to 4 do
  begin
   read(f1,b);
   b1:=b1*(1-b);
  end;
 read(f1,a,b);
 a2:=a/(a+b);b2:=b/(a+b);
 read(f1,n);
 s:=0;s1:=0;s2:=0;s3:=1;
 for i:=1 to n do
 begin
  readln(f1,a,m);
  s:=s+a;
  s3:=exp(ln(a)/n)*s3;
  if m=0 then s1:=s1+a
  else s2:=s2+a;
 end;
end;
procedure nb;
var
 i,j:longint;
begin
 a:=a1*(1-b1)+a1*b1*a2;
 b:=b1*(1-a1)+a1*b1*b2;
 c:=1-a-b;
 s1:=s-s1*2;
 s2:=s-s2*2;
 s3:=s-s3*n;
 s:=s1*a+s2*b+s3*c;
end;
begin
 init;
 nb;
 writeln(f2,a:0:2,' ',b:0:2,' ',c:0:2);
 write(f2,s:0:2);
 close(f1);close(f2);
end.