Imports System

Public Module Module1

    Public Sub Main()

        dim n1 as integer

        n1 = console.ReadLine()

        dim n2 as integer

        n2 = n1 mod 7

        if n2 >0

            console.WriteLine(n1 & " is not divisible by 7")

        end if

        if n2 <0

            console.WriteLine(n1 & " is not divisible by 7")

        end if

        if n2 =0

            console.WriteLine(n1 & " is divisible by 7")

        end if

    End Sub

End Module