CONSTANT Integer NUMBER_OF_RANDOMS = 100

Function bool isEven(Integer n)
	// Local variable to store result
	Declare Boolean status
	
	if (n mod 2 ) == 0 then
		Set status = true
	else
		Set status = false
	End If
	
	return status
End Function

Module Main()
	Declare Integer countEven, countOdd, count, computerRandomNumber
	Declare boolean evenTest
	set countEven = 0
	set countOdd = 0
	
	For count = 1 to NUMBER_OF_RANDOMS
		set computerRandomNumber = random(1,1000)
		set evenTest = isEven(computerRandomNumber)
		
		// Increment our running total if it is true
		if evenTest Then
			countEven = countEven + 1
		EndIf
	End For
	
	Set countOdd = NUMBER_OF_RANDOMS - countEven
	
	Display "Out of ", NUMBER_OF_RANDOMS, " random numbers ", countEven, " are even and ", countOdd, " are odd"
End Main