Imports System

Public Module Module1  

    Public Sub Main()

        Dim Number, CountFactors As Integer         

        Console.WriteLine("Please enter a 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

​

' PSEUDOCODE

' ==========

'

' INTEGER: Number, CountFactors

'

' OUTPUT "Please enter a number."

' INPUT Number

'

' FOR i <-- 1 TO Number

'   IF Number MOD i = 0 THEN

'       CountFactors <-- CountFactors + 1

'   ENDIF

' NEXT

'

' IF CountFactors = 2 THEN

'   OUTPUT "Prime"

' ELSE

'   OUTPUT "NOT Prime"

' ENDIF

​

​

​