Module Module1

    Sub Main()
        Dim pojave As Integer = 0
        For i = 2 To 50 Step 1
            pojave = 0
            For x = 1 To i Step 1
                If i Mod x = 0 Then
                    pojave = pojave + 1
                End If
            Next x
            If pojave < 3 Then
                Console.WriteLine("Broj " & i & " je prost(" & pojave & ")")
            End If

        Next i
        Console.ReadLine()
    End Sub

End Module