Написать программу ,которая вычисляет количество четных цифр в числе m длинной n....Help!!!

from random import randintn = int(input())m = 0z=0for i in range (n):     b = 10**i * randint(0,9)     m = m + b     if (b/10**i) % 2 == 0:         z = z+1print(m)print(z)

Здесь задается только длина числа, а само число выводится рандомно, но если что, то можно сделать ввод с клавиатуры.Var   n,x: integer;   k,m,i: byte; begin   randomize;  write ('Введите длину числа (M): ');  readln (m);  x:=1; // величина ограничителей значений числа при рандомном вводе  for i:=2 to m do    x:=x*10;  n:=random(x,x*10-1);  writeln ('n=',n);  for i:=1 to m do begin    if (n mod 10) mod 2 =0      then k:=k+1;    n:=n div 10;  end;  writeln;  writeln ('В этом числе ',k,' четных цифр');end.-------------------------Пример:Введите длину числа (M): 4n=5297В этом числе 1 четных цифр