Подсчет числа четных цифр, используемых в записи N-значного числа M - Pascal

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

Решить задачу с помощью процедур и функций. Написать программу подсчета числа четных цифр, используемых в записи N-значного числа M.

Решение задачи: «Подсчет числа четных цифр, используемых в записи N-значного числа M»

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

function cs(n: integer): integer;
var
  k, c: integer;
begin
  k := 0;
  c := 0;
  while (n > 0) do 
  begin
    k := n mod 10;
    if (k mod 2 = 0) then
      inc(c);
    n := n div 10;
  end;
  cs := c;
end;

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

В данном коде реализована функция подсчета числа четных цифр в N-значном числе M.

Объявлены две переменные: k и c. Переменная k используется для хранения остатка от деления числа на 10, а переменная c — для подсчета количества четных цифр. Значение переменной k в начале цикла равно 0, а значение переменной c — 0.
Запускается цикл, который выполняется до тех пор, пока число N не станет равным 0.
В каждой итерации цикла значение переменной k обновляется путем взятия остатка от деления числа N на 10.
С помощью оператора if проверяется, является ли k четным числом. Если это так, то значение переменной c увеличивается на 1.
Значение переменной N уменьшается на единицу за счет выполнения операции деления на 10.
После завершения цикла значение переменной c сохраняется в переменной cs.
Функция возвращает значение переменной cs.