Imports System
Public Module Module1
Public Sub Main()
dim number, count, loopcounter as integer
console.WriteLine("enter number")
number = console.ReadLine()
loopcounter = 1
count = 0
do while loopcounter > number
if number MOD loopcounter = 0 then
count = count + 1
end if
loop
if count = 2 then
console.WriteLine("prime")
else
console.WriteLine("not prime")
End Sub
End Module
' PSEUDOCODE
' INTEGER: number, count, loopcounter
' console.WriteLine("enter number")
' number <-- console.ReadLine()
' loopcounter <-- 1
' count <-- 0
' WHILE loopcounter > number DO
' if number MOD loopcounter = 0 then
'count = count + 1
' end if
' ENDWHILE
' if count = 2 then
' console.WriteLine("prime")
' else
' console.WriteLine("not prime")
