Imports System
Public Module Module1
Public Sub Main()
Dim Number, Count AS Integer
Console.WriteLine("Enter Number")
Number = Console.ReadLine()
Count = 0
For i = 1 To Number
If Number MOD i = 0 THEN
Count = Count + 1
End If
Next
If Count = 2 THEN
Console.WriteLine("Prime")
ElseIf Count > 2 Then
Console.WriteLine("Not Prime")
End Sub
End Module
'INTEGER: Number, Count
'OUTPUT "Enter Number"
'INPUT Number
'Count <-- 0
'FOR i <-- 1 TO Number
'IF Number MOD i <-- 0 THEN
' Count <-- Count + 1
'END IF
'NEXT
'
'IF Count = 2 THEN
'OUTPUT "Prime"
'ELSEIF Count > 2 THEN
'OUTPUT "Not Prime"