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 If

    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"

'END IF