uses crt;
var n:string; i,dem:longint;
begin
clrscr;
write('N=');readln(n);
for i:=1 to length(n) do
if (n[i]='0')or(n[i]='2')or(n[i]='4')or(n[i]='6')or(n[i]='8')then dem:=dem+1;
writeln('So chu so chan cua ',n,': ',dem);
readln
end.
//////////////////////////////
Test: