Дано натуральное число, определить кол-во четных цифр в нем — Pascal(Паскаль)

var
 n,k,count:integer;
begin
 readln(N);
 count:=0;
 while N>0 do
  begin
    if not odd(N mod 10) 
      then Inc(count);
    N:=N div 10      
  end;
 writeln(count);//количество четных цифр в числе N

end.

var
 k,i:integer;
 s:string;
begin
 readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in ['0','2','4','6','8'] then k:=k+1;

writeln(k);
end.