Функции с числовыми параметрами

[kuy]

Здравствуйте, помогите написать код к маленькой задачке:
Допустим дано число "5678462381", нужно через function найти количество парных чисел(в данном случае чтобы вывело K=6).

[Serge_Bliznykov]

function NoOddCount(N : longint) : integer;
var  K : integer;
begin
   N := abs(N); 
   K := 0;
   while N>0 do begin
      if not odd(N mod 10) then Inc(K);
      N := N div 10;
   end;
   NoOddCount := K;
end;