Составить программу которая считает количество цифр в числе - Turbo Pascal

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

Составить программу которая считает количество цифр в числе , а так же количество четных цифр в числе , и сумму четных цифр

Решение задачи: «Составить программу которая считает количество цифр в числе»

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

var n,k,kc,sc:integer;
begin
write('n=');
readln(n);
n:=abs(n);
k:=0;
kc:=0;
kc:=0;
while n>0 do
 begin
  if n mod 10 mod 2=0 then
   begin
    kc:=kc+1;
    sc:=sc+n mod 10;
   end;
  n:=n div 10;
  k:=k+1;
 end;
write('k=',k,' kc=',kc,' sc=',sc);
end.

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

Создаются переменные n, k, kc и sc типа integer.
Выводится запрос на ввод числа n.
Число n преобразуется в положительное значение.
Переменная k инициализируется нулем.
Переменная kc инициализируется нулем дважды (для счетчика цифр).
Запускается цикл while, который выполняется до тех пор, пока число n больше нуля.
В теле цикла проверяется, делится ли число n на 10 без остатка и равно ли его последняя цифра четному числу. Если это так, то увеличивается счетчик kc на единицу и число n делится на 10, а результат сохраняется в переменной sc.
Число n делится на 10, и его остаток сохраняется в переменной n. Переменная k увеличивается на единицу.
После завершения цикла выводится сообщение с значениями переменных k, kc и sc.