Найдите количество нечетных чисел среди а,в,с

Var a, b, c: integer;

begin
  read(a, b, c);
  a := a mod 2; {в результате, в а будет остаток от деления на 2, то есть 1 - если число нечетное}
  b := b mod 2;
  c := c mod 2;
  write(a + b + c);
end.