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 Sub
End Module