[Alegun]

Сообщение от faer253

...так я не знаю,что за Odd.

Небольшой ликбез

Функция Odd(Num) возвращает true, если Num нечетно и false если наоборот.

Пример

Код:

...

var
  i : Integer;
begin
  // Отображение всех нечетных значений в диапазоне от 1 до 9
  for i := 1 to 9 do
    if Odd(i) then ShowMessageFmt('%d нечётно',[i]) 
 //  else ShowMessageFmt('%d чётно',[i])
  ;
end;

т.е. выводит сообщение " Нечётно" на 1,3,5,7 и 9