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

var s:string; i,n:longint;begin  readln(s);  for i:=1 to length(s) do    if (s[i]='2')or(s[i]='4')or(s[i]='6')or(s[i]='8') then inc(n); writeln(n);end.