Imports System

Public Module Module1

    Function squareroot (ByVal num as double) as double

        squareroot = num^0.5

    End Function

    Public Sub Main()

        dim num as double

        console.writeline ("Enter a Square number")

        num = console.readline()

        Console.writeline (squareroot(num))

    End Sub

End Module