$n = 18
If Mod($n, 2) = 0 Then
	MsgBox(4096, "", $n & " это чётное число.")
Else
	MsgBox(4096, "", $n & " это нечётное число.")
EndIf

$x = Mod(4, 7) ; $x == 4 потому что делитель > делимое

$y = Mod(1, 3 / 4) ; $y == 0.25 потому что делитель с плавающей точкой