Sub Main()
Dim a As Integer = 0, i As Integer = 0, j As Integer = 0, flag As Integer = 0
Randomize()
For i = 1 To 10
a = Rnd() * 100
a = 50 + a Mod 51
Console.WriteLine(a)
For j = 2 To a - 1
If a Mod j = 0 Then
flag = 0
Else
flag = 1
End If
Next
If flag = 0 Then
Console.WriteLine(" not rishoni")
Else
Console.WriteLine("rishoni")

End If
flag = 0


Next

Console.ReadKey()
End Sub