Mistři v programování na #hovnokod

Visual Basic #584

Dim num As Integer
    Dim inp As Integer
    Dim wrt As String
    Dim liv As Integer



    Sub Main()
        liv = 3
        Console.WriteLine("LIVES = " & liv)
pl:
        If liv = 0 Then GoTo st


        num = Fix(Rnd() * 5)

        Console.WriteLine("ENTER NUMBER:")
        inp = Console.ReadLine()
        If inp < num Then
            Console.WriteLine("GREATER")
            liv = liv - 1
            Console.WriteLine("LIVES = " & liv)
            GoTo pl

        End If

        If inp > num Then
            Console.WriteLine("LESS")

            liv = liv - 1
            Console.WriteLine("LIVES = " & liv)
            GoTo pl
        End If


        If inp = num Then Console.WriteLine("YES!")
st:
        Console.WriteLine("GAME OVER")
        Console.WriteLine("ENTER ANY NUMBER TO EXIT")
        inp = Console.ReadLine()



    End Sub

HovnoKod,