Найдите количество чётных цифр заданного числа в программе TurboPascal, используя функцию

Чувак, огромнейшее тебе спасибо!

Пожалуйста. Не следует обращаться к незнакомому человеку "чувак".

var a:integer;function kol(n:integer):integer;var k:integer;begink:=0;while n>0 do begin if n mod 2 = 0 then k:=k+1; n:=n div 10; end;kol:=k;end;beginwrite('a = ');readln(a);writeln('Количество четных цифр = ',kol(a));end.Пример:a = 123465Количество четных цифр = 3