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

var n,m,k:integer; begin write('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=123456 k=3