Посчитать количество четных цифр любого числа паскаль

Var
  n:longint;
  d,k:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  k:=0;
  while n>0 do begin
    d:=n mod 10;
    n:=n div 10;
    if (d mod 2)=0 then Inc(k)
  end;
  Writeln('Количество четных цифр равно ',k)
end.