Пример кода на Pascal:

program CountEvenDigits;
var
num, digit, evenCount: integer;
begin
evenCount := 0;
write('Введите число: ');
readln(num);
while num <> 0 do
begin
digit := num mod 10;
if digit mod 2 = 0 then
evenCount := evenCount + 1;
num := num div 10;
end;
writeln('Количество чётных цифр в числе: ', evenCount);
end.

Эта программа запрашивает у пользователя число, затем считает количество чётных цифр в этом числе и выводит результат на экран.