program simulator;
var
  n,vz,i,j,t,code,kg2:longint;
  cz:real;
  s:array[1..10000]of string;
  l:array[1..10000]of integer;
  v:array[0..10000]of integer;
  c,c0:array[0..10000]of real;
begin
  assign(input,'simulator.in');
  reset(input);
  assign(output,'simulator.out');
  rewrite(output);
  readln(v[0],c[0]);
  readln(n);
  vz:=v[0];
  cz:=c[0];
  c0[0]:=c[0];
  for i:=1 to n do
  begin
    readln(s[i]);
    l[i]:=length(s[i]);
    if l[i]<>1 then
    begin
      t:=t+1;
      for j:=3 to l[i] do
        if copy(s[i],j,1)=' ' then kg2:=j;
      val(copy(s[i],3,kg2-3),v[t],code);
      val(copy(s[i],kg2+1,l[i]-kg2),c[t],code);
      c0[t]:=(vz*(cz/100)+v[t]*(c[t]/100))/(vz+v[t])*100;
      cz:=c0[t];
      vz:=vz+v[t];
    end;
    if l[i]=1 then
      if (vz<>v[0])and(cz<>c[0]) then
      begin
        vz:=vz-v[t];
        cz:=c0[t-1];
      end;
    writeln(vz,' ',cz:0:5)
  end;
  close(input);
  close(output);
end.