Что делает К

Скажите, что даёт “k” в данной программе begin var n:=readinteger; var k:=0; while n<>0 do begin var d:=n mod 10; if d mod 2=0 then k+=1; n:=n div 10; end; write(k); end.

k-количество четных цифр для вводимого числа n, т.е. по сути счетчик. Пример ввели n=12345; На выходе k=2(т.к. четные только цифры 2 и 4).