Дано натуральное число 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

while True:

   n = int(input('Введите кол-во чисел: '))

   if n <= 1000:

       break

   else:

       print('Ошибка: Кол-во чисел не должно превышать 1000')

number = None

for _ in range(n):

   while True:

       num = int(input('Введите число: '))

       if num <= 30000:

           break

       else:

           print('Ошибка: Число не должно превышать 30000')

   if num % 5 == 0:

       if number:

           if num > number:

               number = num

       else:

           number = num

print(number)

Код:

import tkinter

from tkinter import *  

 

 

def clicked():

   window.geometry('400x250')

   lbl.configure(text="Грудень, січень, лютий", font=("Arial Bold", 13))

 

 

def clicked2():

   window.geometry('400x250')

   lbl.configure(text="Червень, липень, серпень", font=("Arial Bold", 13))

 

 

def clicked3():

   window.geometry('400x250')

   lbl.configure(text="Вересень, жовтень, листопад", font=("Arial Bold", 13))

 

 

def clicked4():

   window.geometry('400x250')

   lbl.configure(text="Березень, квітень, травень", font=("Arial Bold", 13))

window = Tk()  

window.title("Пори року")  

window.geometry('300x250')  

lbl = Label(window, text="Місяць", font=("Arial Bold", 20))  

lbl.grid(column=0, row=0)  

btn = Button(window, text="Зима", command=clicked)  

btn.grid(column=1, row=0)

btn = Button(window, text="Літо", command=clicked2)  

btn.grid(column=2, row=0)

btn = Button(window, text="Осені", command=clicked3)  

btn.grid(column=3, row=0)

btn = Button(window, text="Весна", command=clicked4)  

btn.grid(column=4, row=0)

window.mainloop()