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
next
End Sub
End Module