.


           


x := random; y := random; z := random;

if ((x < 1/3) and (y > 1/3) and (y < 2/3) and (z > 2/3)) or

((y < 1/3) and (x > 1/3) and (x < 2/3) and (z > 2/3)) or

((y < 1/3) and (z > 1/3) and (z < 2/3) and (x > 2/3)) or

((z < 1/3) and (x > 1/3) and (x < 2/3) and (y > 2/3)) or

((z < 1/3) and (y > 1/3) and (y < 2/3) and (x > 2/3)) or

((x < 1/3) and (z > 1/3) and (z < 2/3) and (y > 2/3))

then m := m + 1

end;

p := m/n;

writeln(' ', p:6:4);

writeln(' ', e:1:6);

writeln(' ', PP:1:4);

writeln(' ', n)

end.