var
win, way, vs: byte;
lox, nelox, i: longint;
p: real;

begin
	lox:=0;
	nelox:=0;
	randomize;
	for i:=1 to 1000 do
	begin
		win:=random(3);
		way:=random(3);
		if win=way then vs:=(random(2)+1+way) mod 3 else
		vs:=3-win-way;
		way:=3-vs-way;
		if way=win then inc(nelox) else inc(lox);
		p:=nelox/(lox+nelox);
		writeln(lox, ' ',nelox, ' ',p:1:3);
	end;
end.