задача на тему "Логические переменные"

[kresik]

помогите с такой вот задачкой: определить значение логического выражения утверждающего что 3 целых числа введеные с клавиатуры четные числа.
п.с нужно представить через boolean D: заранее благодарен

[veniside]

result := (0 = ((A or B or C) and 1));

[kresik]

а можно поподробнее? всмысле показать всю программу? ;]

[veniside]

а можно не быть таким лентяем? (вопрос риторический )

program whatever;

var
  a, b, c: Integer;
  result: boolean;
begin
  write('Enter 3 integer numbers: ');
  readln(a, b, c);
  result := (0 = ((A or B or C) and 1));
  if (result) then
    writeln('All numbers are even')
  else
    writeln('One or more number is odd');
end.

[kresik]

большое спасибо просто я полный 0 в этом