Imports System

Public Module Module1

    Public Sub Main()

        dim n,f as integer

        n=console.readline()

        For i = 2 to n-1

        if n MOD i=0 then 

        f=f+1

        end if

       next

        if f>0 then 

        console.WriteLine("Number is not prime")

    else console.WriteLine("Number is prime")

        end if

    End Sub

End Module