Imports System

Public Module Module1

    Public Sub Main()

        Dim seed as decimal 

        Dim RandomClass As  New System.Random(seed) 

        Dim RandomNum, answer, loopcounter, difficulty, RandomBer, rightanswer As Integer

        console.WriteLine("insert your random code here (also if you write down code from nhentai then i will give you money based on how good it is)")

        seed = console.ReadLine()

    Console.WriteLine("Enter your difficulty.")

    Console.WriteLine("INPUT 1 if you are: 3 years old and somehow found this program instead of playing with your toys and that you expect something fun from this program")

    Console.WriteLine("INPUT 2 if you are: from a regular and insignificant school somewhere in any english speaking country, then this is probably a great challenge for you")

    Console.WriteLine("INPUT 3 if you : have a calculator and an actual functional brain")

        do

        difficulty = console.ReadLine()

            if difficulty > 3 OR difficulty < 1 then

                console.WriteLine("nice try smartass")

            end if

        loop until difficulty < 4 AND difficulty > 0

        for loopcounter = 1 to 10

        console.WriteLine("what is " & randomnum & " + " & randomber & "?")

        rightanswer = randomnum + randomber

        answer = console.ReadLine()

        if answer = rightanswer then

        end if

    next

    End Sub

End Module