using System;
using System.Diagnostics;

class Sample {
  static void Main() {
    Console.Write("サンプル数? ");

    var s = int.Parse(Console.ReadLine());

    Console.WriteLine("π ＝ {0}", Math.PI);

    for (var i = 0; i < 10; i++) {
      var m = 0;
      var rand = new Random();
      var sw = Stopwatch.StartNew();

      for (var n = 0; n < s; n++) {
        var x = rand.NextDouble();
        var y = rand.NextDouble();

        if (Math.Sqrt(x * x + y * y) < 1.0)
          m++;
      }

      sw.Stop();

      var pi = 4.0 * m / s;

      Console.WriteLine("{0:D2}回目 ({1:F2}秒): π ≒ {2:F10}", i, sw.Elapsed.TotalSeconds, pi);
    }
  }
}

Imports System
Imports System.Diagnostics

Class Sample
  Public Shared Sub Main()
    Console.Write("サンプル数? ")

    Dim s As Integer = Integer.Parse(Console.ReadLine())

    Console.WriteLine("π ＝ {0}", Math.PI)

    For i As Integer = 1 To 10
      Dim m As Integer = 0
      Dim rand As New Random()
      Dim sw As Stopwatch = Stopwatch.StartNew()

      For n As Integer = 1 To s
        Dim x As Double = rand.NextDouble()
        DIm y As Double = rand.NextDouble()

        If Math.Sqrt(x * x + y * y) < 1.0 Then m += 1
      Next

      sw.Stop()

      Dim pi As Double = 4.0 * m / s

      Console.WriteLine("{0:D2}回目 ({1:F2}秒): π ≒ {2:F10}", i, sw.Elapsed.TotalSeconds, pi)
    Next
  End Sub
End Class