Дано натуральное число n отыскать количество четных не одинаковых нулю цифр

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
  i,n,k:integer;
  s:string;
begin
  Write('Введите натуральное число: '); Read(n);
  k:=0;
  Str(n,s);
  for i:=1 to Length(s) do
    if Pos(s[i],'2468')gt;0 then Inc(k);
  Writeln('Количество четных цифр равно ',k)
end.

Тестовое решение:
Введите натуральное число: 3452234
Количество четных цифр равно 4

Var
  n,k:integer;
begin
  write('Введите число ');
  readln(n);
  while nlt;gt;0 do begin
    if n mod 2 = 0 then k:=k+1;
    n:=n div 10;
  end;
  writeln('чётных цифр в числе ',k);
end.

Тестовое решение:
Введите число 5436812
чётных цифр в числе 4