Через Паскаль!!!!безотлагательно нужно (то что красноватым делать)

Вот код (на всякий случай):

Program Digits;var a, n, d: integer;Begin //Вводим число write('Введите число: '); readln(a); n := 0; //Счётчик чётных цифр //Проходим по каждой цифре числа while (a > 0) do begin //Берём цифру и проверяем её делимость на 2 d := a mod 10; if (d mod 2 = 0) then n := n + 1; a := a div 10; //Убираем проверенную цифру end; //Выводим ответ write('На 2 делится ', n, ' цифр(-а).');End.