Во втором варианте, предложенном deejex'ом, вероятность угадать число выше А как Вам такой поворот событий
Code
Graphics 1024, 768, 32, 2
AppTitle "Отгадай-ка"
SeedRnd MilliSecs()
SetFont LoadFont("Arial cyr",22,1,1,0)
Repeat
z = Rand(0,3000)
Color 255,255,255
s$ = Input$("Я загадал число от 1 до 3000. Если угадаешь ты счастливчик ")
If s$ = Str(z) Then
Color 20,255,20
Print "Угадал! Ты реальный мужик, хотя тебе просто повезло"
Print " "
Else
Print "Попробуйте снова!!!"
End If
Forever
WaitKey()
End