Module Module1
    Sub Main()
        Dim divisor, dividend As Integer
        Console.WriteLine("Enter division calculation")
        Dim terms() As String = Console.ReadLine().Split("/")
        dividend = terms(0).Trim()
        divisor = terms(1).Trim()
        Console.WriteLine("div: " & div(dividend, divisor))
        Console.WriteLine("mod: " & dividend Mod divisor)
        Console.ReadLine()
    End Sub

    Function div(dividend As Integer, divisor As Integer) As Integer
        Return Math.Floor(dividend / divisor)
    End Function

End Module