Suicide

Module Module1

	sub Main()
		Dim A, B, H, X, Y, Y1, Y2, X1 As Single
		A = Val(Console.ReadLine())
		B = Val(Console.ReadLine())
		H = Val(Console.ReadLine())
		For X = A To (B + H) Step N
			Y = X^2 - 2*(X^(1 / 2))
			Console.WriteLine("X = {0}   Y = {1}", X, Y)
		Next X
		For X = A To B Step H
			Y1 = X^2 - 2*(X^(1 / 2))
			Y2 = (X + H)^2 - 2*((X + H)^(1 / 2))
			If (Y1 * Y2 < 0) Then
				For X1 = X To (X + H) Step (H / 10)
					Y1 = X1^2 - 2*(X^(1 / 2))
					Y2 = (X1 + (H / 10))^2 - 2*((X1 + (H / 10))^(1 / 2))
					If (Y1 * Y2 < 0) Then Console.WrileLine((X1 + X1 + H) / 2)
				Next
			End If
		Next
		Console.ReadLine()
	End Sub

End Module