Imports System.console

Public Module Module1

    Public Sub Main()

        dim seed as integer

        writeline("Enter a random seuence of numbers.")

        seed=readline()

        Dim randomclass As  New system.random(seed) 

        Dim randomnum,answer,counter As Integer

        dim correct as integer =0

        randomnum = randomclass.next(1, 51)

        do

        writeline("Please enter your guess between 1 and 50.")

            do

                answer=readline()

                if answer<1 or answer>50 then

                    writeline("Between 1 and 50!!!")

                end if

            loop until answer>=1 and answer<=50

            counter=counter+1

            if answer=randomnum then

                correct=1

                writeline("You've guessed it correct!!")

            else

                correct=0

                writeline("you've guessed it wrong")

                if randomnum>answer then

                    writeline("The correct answer is higher.")

                else

                    writeline("The correct answer is lower.")

                end if

            end if

        loop until correct=1

        writeline("Congratulations, you took " & counter & " tries to guess the correct answer.")

    End Sub

End Module