Определить количество цифр в записи числа, кратных двум - PascalABC.NET

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

С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить, количество цифр в записи числа кратных двум.

Решение задачи: «Определить количество цифр в записи числа, кратных двум»

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

var num:String;
begin
  Readln(num);
  Writeln('Количество четных цифр:',num.TrimStart('0').ToCharArray.Where((dig:Char)->Ord(dig) mod 2=0).Count);
end.

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

Вводится переменная num типа String
Вводится значение переменной num с помощью функции Readln
Выполняется функция TrimStart, которая удаляет начальные нули из строки num
Результат функции TrimStart присваивается переменной num
Выполняется функция ToCharArray, которая преобразует строку num в массив символов
Выполняется функция Where, которая фильтрует массив символов так, чтобы остались только символы, удовлетворяющие условию (цифры, кратные двум)
Результат функции Where присваивается переменной dig
Выполняется функция Count, которая подсчитывает количество элементов в массиве dig
Результат функции Count выводится на экран с помощью функции Writeln
Заголовок вывода формируется с помощью функции Writeln, а значение переменной num используется в качестве аргумента для функции Writeln
Выводится заголовок и значение переменной num
Завершается выполнение программы