applicable

Ответ от Миоко Таканава[гуру]
О, Боже!. . - Операция взятия остатка применима только к целым числам. - Делить на ноль нельзя. - Строковые константы заключаются в апострафы. - Перед else точка с запятой не ставится. Сравнивайте со своей программой: procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin i:= StrToInt(edit1.text); if odd(i) then {или if i mod 2 <> 0 then или if i and 1 = 1 then} ShowMessage('Число не является четным') else ShowMessage('Число является четным'); end;