#include <math.au3>
$I_Var = InputBox('Чётный или нечётный', 'Введите число:')
$I_Result = _MathCheckDiv($I_Var, 2)
If $I_Result = -1 Or @error = 1 Then
   MsgBox(4096,'','Вы не ввели правильное число')
ElseIf $I_Result = 1 Then
   MsgBox(4096,'','Нечётное число')
ElseIf $I_Result = 2 Then
   MsgBox(4096,'','Чётное число')
Else
   MsgBox(4096,'','Не удалось определить $I_Result')
EndIf