[code] Kiểm tra tính chẵn lẻ của số nguyên

$n=InputBox("","N=",0," M")
$a=Mod($n,2)
If $a=1 Or $a=-1 Then MsgBox(0,$n,"là số lẻ") EndIf
If $a=0 Then MsgBox(0,$n,"là số chẵn") EndIf