Imports System

Public Module Module1

    Public Sub Main()

         Console.Write("Input point1 (comma separated): ")

        Dim input1 = Console.ReadLine()

        Dim point1Str As String() = input1.Split(New Char() {","c})

​

        Console.Write("Input point2 (comma separated): ")

        Dim input2 = Console.ReadLine()

        Dim point2Str As String() = input2.Split(New Char() {","c})

​

        Console.Write("Input line size: ")

        Dim input3 = Console.ReadLine()

        Dim line As String = input3

​

        Dim deltaX = Integer.Parse(point1Str(0)) - Integer.Parse(point2Str(0))

        Dim deltaY = Integer.Parse(point1Str(1)) - Integer.Parse(point2Str(1))

        Dim comparePoint = Math.Sqrt(Math.Pow(deltaX, 2) + Math.Pow(deltaY, 2))

        Console.WriteLine("comparePoint {0}", comparePoint)

​

        If Integer.Parse(line) = comparePoint Then

            Console.WriteLine("Point2 is excatly on the circle")

        Else

            If Integer.Parse(line) > comparePoint Then

                Console.WriteLine("Point2 is inside the circle")

            Else

                Console.WriteLine("point2 is outside the circle")

            End If

        End If

    End Sub

End Module