Imports System

Public Module Module1

    Public Sub Main()

        Dim nIn as decimal

        Console.WriteLine("Enter a number")

        nIn = Console.ReadLine()

        Console.WriteLine(nIn / 7)

        if (nIn mod 7 > 0) then

            Console.WriteLine("is not a multiple of 7")

        else

            Console.WriteLine("is a multple of 7")

        End if

    End Sub

End Module