можешь взять числа и делить из на два с команды
a:=a mod 2;
Если остаток =0 значит число четное и наоборот
можешь взять числа и делить из на два с команды
a:=a mod 2;
Если остаток =0 значит число четное и наоборот