Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("what is the square root of 144")
Dim n1 as integer
n1 = Console.Readline()
Do Until n1 = 12
Console.writeline("try again")
Loop
Console.WriteLine("Yes, you are right")
End Sub
End Module