Проверка чётности числа

[Antoha79]

Подскажите пожалуйста как сделать проверку чётности числа? (Ларечник в течении n дней (n-чётное) проводил фин. операцию: в один день он приобретал товар по цене на рубль дороже, чем продал на предыдущий день, а на другой день продавал этот же товар на 1 рубль дороже чем купил. Сделать программу определяющую прибыль за всё время операции.)

[Kostia]

if odd(x) then нечетное
else четное;

или так:

if x mod 2=1 then нечетное
else четное;

[Antoha79]

Подскажите ещё пожалуйста: прогу через цикл делать? И через какой?

[Jora_Kornev]

зачем тебе вообще четное или нечетное - делай операции по очереди:

...
z:=1;
for ...
 begin
  if z:=1 then
   begin
    ...;
    z:=2;
   end else
   begin
    ...;
    z:=1;
   end;
 end;
...