Imports System

Public Module Module1

    Public Sub Main()

        Dim nImput as decimal

        Dim aImput as decimal

        const sqrt2 = 1.41421

        Console.WriteLine("give me a number")

        nImput = Console.ReadLine()

        Console.WriteLine("give me a number")

        aImput = Console.ReadLine()

        Console.WriteLine("you typed in" & nImput & "&" & aImput)

        Console.WriteLine("Answer is:" & nImput * sqrt2 * aImput)

        Console.ReadLine()

    End Sub

End Module