[impersonalis]

XOR чётного с любым нечётным даст нечётное

SeedRnd(MilliSecs())
For i=1 To 10
	a%=2*Rand(1,100)+1
	b%=2*Rand(1,100)
	c%=a Xor b
	Print c
Next
WaitKey()