Напишите функцию, которая для любого целого аргумента определяет количество четных цифр в его записи - Pascal

Формулировка задачи:

1)Напишите функцию, которая для любого целого аргумента определяет количество четных цифр в его записи. Для n чисел определить, какое из чисел имеет большее количество четных цифр в записи. 2)Для решении задачи использовать функцию. Составить программу, печатающую значение true , если указанное высказывание является истинным, и else в противном случае. Работу функции проверить для n входных данных: среди чисел a,b и с есть хотя бы одна пара взаимно противоположных чисел. 3)Для n значений x вычислить значение функции. если функция не определена в заданной точке, то считать ее равной нулю. Число n и значения x вводятся с клавиатуры. например : n=5, x=-4,-2,0,2,4 f(x)= фигурная скобка : 0, -1<=x<=0; x^2, 0<=x<=1.

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

Листинг программы

var
  n:integer;
{ГґГіГ*ГЄГ¶ГЁГї ГЇГ®Г¤Г±Г·ГҐГІГ* Г·ГҐГІГ*Г»Гµ Г¶ГЁГґГ°}
function C4(n:integer):integer;
var
  temp,count:integer;
begin
  temp:=n;
  count:=0;
  while temp<>0 do
  begin
    if not odd(temp mod 10) then
      inc(count);
    temp:=temp div 10
  end;
  Result:=count
end;
{Г®Г±Г*Г®ГўГ*Г*Гї ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г*}
begin
  readln(n);
  writeln(C4(n))
end.

Объяснение кода листинга программы

Объявлена переменная n типа integer.
Создана функция C4 с аргументом n типа integer и возвращаемым значением типа integer.
Внутри функции объявлены две переменные temp и count типа integer.
Инициализированы переменные temp и count значением n.
В цикле while происходит деление temp на 10 и проверяется остаток от деления на 10 с помощью функции odd.
Если остаток от деления на 10 нечетный (т.е. не равен 1,3,5,7,9), то увеличивается значение переменной count.
После каждой итерации цикла значение переменной temp делится на 10.
После окончания цикла функция возвращает значение переменной count.
В основной части программы происходит чтение значения переменной n с помощью функции readln.
Выводится результат работы функции C4 с помощью функции writeln.