True или False, в зависимости от того, имеют три данных числа одинаковую четность

[DjVidan]

Разработать программу кторая выводит True или False, в зависимости от того, имеют три данных числа одинаковую четность или нет. На Delphi

[_Dmitry]

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: integer;
begin
  a:=4;
  b:=2;
  c:=8;
  if (odd(a) and odd(b) and odd(c)) or (not odd(a) and not odd(b) and not odd(c)) then ShowMessage('true')
  else ShowMessage('false');
end;

[mihali4]

А в чем, собственно, трудности???
Выкладывайте ваши наработки. Или очередной залетный халявщик, которому программирование и на хрен не нужно - лишь бы спихнуть?

З.Ы. Готов спорить, что, если он тут еще и появится, то только для того, чтоб ему решили еще одну задачу, которую нужно было сдать вчера... А уж никак не для того, чтобы научиться решать самому хотя бы самые примитивные задачки.
Впрочем, таких развелось полно, это легко определяется по количеству постов (как правило = 1..2).

[DjVidan]

Просто в школе небыло информатики вообще, а в универе задали. А я понятия не имею о программировании. Так бы я сам сделал, было бы времени побольше, я у кого нить спросил че к чему, но надо завтра здавать! ОГРОМНОЕ СПАСИБ!!!

[Alter]

off: например у меня программирования в школе вообще небыло. Несмотря на это я читая книги смог обучиться. Главное было бы желание.