Чётность-нечётность

[OlegNOV]

Здравствуйте!
Подскажите пожалуйста, как сделать что бы прога определяла чётное или не четное число введено например в Edit.

[Карась]

Поделить число на 2 и посмотреть есть ли остаток....

[Alex21]

Function Odd(X: LongInt): Boolean;
Возвращает True, если X - нечетное число и False в противном случае.

[OlegNOV]

Извиняюсь, я очень начинающий в этом деле, то что разделить на 2 это понятно, но как узнать есть ли остаток? Если не затруднит то по конкретнее...

Спасибо! теперь понял!

[Alex21]

if ODD(StrToInt(edit1.Text)) then
  ShowMessage('Не четное')
  else ShowMessage('Четное');

[Карась]

Что касается остатка и проверки чему он равен:

program Project2;

{$APPTYPE CONSOLE}
var a, b: integer;

begin
Readln (a);
b := a mod 2;

if b = 0 then
Writeln ('Da')
Else
Writeln ('Net');

Readln;
end.

[OlegNOV]

Спасибо огромное!