Программирование линейных алгоритмов в Delphi7

[Rom1k]

Помогите... напишите плиз программу условия задачи вот:
Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет.

[VVM]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chetnost(7, 6, 5);
end;

procedure TForm1.Chetnost(A, B, C: integer);
begin
  if ((A mod 2 = 0) and
      (B mod 2 = 0) and
      (C mod 2 = 0)) or
     ((A mod 2 <> 0) and
      (B mod 2 <> 0) and
      (C mod 2 <> 0)) then
    ShowMessage('1')
  else
    ShowMessage('0');
end;

[zetrix]

Почему бы не так?

if ((A mod 2 = B mod 2) and (B mod 2 = C mod 2)) then
    ShowMessage('1')
  else
    ShowMessage('0');

[Serge_Bliznykov]

Ну, тогда, почему бы не так? :-)

if (odd(A) = odd(B)) and (odd(B)=odd(C)) then