Write a program that counts the number of even digits of the entered number.

var
a, b, s: integer; // declaration of variables of integer type.

begin
write (‘Enter a number:’); // display the string to the screen.
read (a); // read the value of the variable entered from the keyboard.
while a> 0 do // start of the loop.
begin
b: = a mod 10; // define the last digit to the right of the number.
if (b mod 2 = 0) then // if the digit is even, then calculate the sum.
s: = s + 1;
a: = a div 10; // remove the last digit from the right in the number.
end;
writeln (‘The number of even digits of the entered number is:’, s); // display the string to the screen.
end.