Module Module1
    Sub Main()
        Dim i, j As Integer
 
        i = 2
        While (i <= 100)
            j = 2
            While (j < i)
                If (i Mod j = 0) Then
                    Exit While
                ElseIf (j = i - 1) Then
                    Console.WriteLine(i)
                End If
                j = j + 1
            End While
            i = i + 1
        End While
 
        Console.ReadLine()
    End Sub
End Module

TW9kdWxlIE1vZHVsZTEKICAgIFN1YiBNYWluKCkKICAgICAgICBEaW0gaSwgaiBBcyBJbnRlZ2VyCgogICAgICAgIGkgPSAyCiAgICAgICAgV2hpbGUgKGkgPD0gMTAwKQogICAgICAgICAgICBqID0gMgogICAgICAgICAgICBXaGlsZSAoaiA8IGkpCiAgICAgICAgICAgICAgICBJZiAoaSBNb2QgaiA9IDApIFRoZW4KICAgICAgICAgICAgICAgICAgICBFeGl0IFdoaWxlCiAgICAgICAgICAgICAgICBFbHNlSWYgKGogPSBpIC0gMSkgVGhlbgogICAgICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKGkpCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgIGogPSBqICsgMQogICAgICAgICAgICBFbmQgV2hpbGUKICAgICAgICAgICAgaSA9IGkgKyAxCiAgICAgICAgRW5kIFdoaWxlCgogICAgICAgIENvbnNvbGUuUmVhZExpbmUoKQogICAgRW5kIFN1YgpFbmQgTW9kdWxl