Дано натуральное число n найти количество четных не равных нулю цифр этого числа (9 класс )напишите пожалуйста

// 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')>0 then Inc(k);   Writeln('Количество четных цифр равно ',k) end. Тестовое решение: Введите натуральное число: 3452234 Количество четных цифр равно 4

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