Module Module1

    Sub Main()
        Dim a, squareroot As Integer
        Console.WriteLine("enter the number")
        a = Console.ReadLine()
        squareroot = Math.Sqrt(a)
        Console.WriteLine("the square root of given number " & squareroot)
        Console.ReadLine()


    End Sub

End Module
