##
for var i := 3 to 8 do
begin
var n := integer(10 ** i);
var count := 0;
loop n do
if random.sqr + random.sqr < 1 then count += 1;
Writeln(n:10, 4 * count / n:12:8);
end;