Imports System

Public Module Module1

    Public Sub Main()

        dim n as integer

        console.WriteLine("input a number")

        n = console.ReadLine()

        if n > 0 

            do until n <= 0

                n = n - 3

            if n < 0 then

                    console.WriteLine("not divisible by 3")

                elseif n = 0 then 

                    console.WriteLine("divisible by 3")

            end if

                loop

        end if 

    End Sub

End Module