Imports System

Public Module Module1

    Public Sub Main()

        dim number, countfactors as integer

        console.writeline("enter number")

        number = console.readline()

        for i  = 1 to number

            if number MOD i=0 then

            countfactors = countfactors + 1

        end if

        next

            if countfactors = 2 then

            console.writeline("prime")

            else console.writeline("not prime")

        end if

    End Sub

End Module