Ребят,хелп,упрашиваю..Написать программку для подсчёта количества чётных и нечётных цифр хоть какого

var

   a, chet, nechet : integer;

begin

   write('введите число: ');

   readln(a);

   while a gt; 0 do begin

       if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

       a := a div 10;

   end;

   writeln('четных: ', chet);

   writeln('не четных: ', nechet);

end.

программка считает 0 как четное число. Если необходимо что бы 0 не учитывался при подсчете то необходимо строчку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

поменять на:

if a mod 10 lt;gt; 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;