/run freebasic
For i As Integer = 1 to 7:Print Int(Rnd * 37) + 1 ;:Next i