Imports System

Public Module Module1

    Public Sub Main()

        dim modulus, j as integer

        for i = 1 to j

        for j = 1 to 100

        if j mod i = 0 then

            modulus = modulus+1

        end if

    if modulus = 2 then

            console.WriteLine(45)

            modulus = 0

        end if

next

next

    End Sub

End Module