С клавиатуры вводится целое положительное число. Определить, сколько в этом числе чётных цифр.(PASCAL)

var n,m,k:integer;beginwrite('n='); readln(n);k:=0;while n>0 do  begin  m:=n mod 10;  if m mod 2 = 0 then k:=k+1;  n:=n div 10; end;writeln('k=',k);end.Пример:n=123456k=3