Напишите программу которая считает количество чётных цифр введённого числа

var x,z,k:integer;begin writeln ('введите число');readln(x);k:=0;while x<>0 dobeginz:=x mod 10;x:=x div 10;if x mod 2=0 thenk:=k+1;end;writeln('кол-во чётных чисел :',k);end.