Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, c As Integer

        Console.WriteLine("Guess what number that I'm thinking of! It is between 1 and 30! :")

        a=Console.ReadLine()

        b=Console.ReadLine()

        c=Console.ReadLine()

        If (a= b < 30 ) Then

            Console.Writeline("Keep on Trying! :")

        End If

    If (b= 1) Then

            Console.WriteLine("Great Job!")

            End If

    End Sub

End Module