Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as integer

        Dim n2 as integer

        Dim op1 as string

        Console.WriteLine("What is your favourite number?")

        n1 = Console.ReadLine()

        Console.WriteLine("What is your second favourite number?")

        n2 = Console.ReadLine()

        Console.WriteLine("OK thank you. Would you like to add, subtract, mulitply or divide " & n1 & " and " & n2)

        op1 = Console.ReadLine()

        If op1 = "add" then 

            Console.WriteLine( n1+ n2)

        Elseif op1 = "subtract" then 

            Console.WriteLine(n1 - n2)

        Elseif op1 = "multiply" then

            Console.WriteLine(n1 * n2)

        Elseif op1 = "divide" then

            Console.WriteLine(n1 / n2)

        else 

            Console.Writeline("Invalid input")

        End if 

    End Sub

End Module